Function FileOpen(Optional ByVal sTitle As String = "Choisir le(s)  fichier(s)", Optional ByVal bAllowMultiSelect As Boolean  = True, Optional ByVal sFiltreName As String = "Images", Optional ByVal sFiltreContent As String = "*.bmp; *.gif; *.jpg; *.jpeg;  *.png") As String
' CHOIX D'UN FICHIER PAR  VBA
    
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    Dim vrtSelectedItem As Variant
    With fd
        .Title = sTitle                   'Titre
        .AllowMultiSelect = bAllowMultiSelect 'Choix multiples
        .Filters.Add sFiltreName, sFiltreContent, 1 'Filtre image
        If .Show = -1 Then
            For Each vrtSelectedItem In .SelectedItems
                FileOpen = Trim(FileOpen & "|" & vrtSelectedItem)
            Next vrtSelectedItem
        Else
            'Bouton  Annuler
        End If
    End With
    Set fd = Nothing
End Function

Function FileOpen(oCD As CommonDialog, Optional ByVal  sTitle As String  = "Choix du  fichier", _
                  Optional ByVal sFiltreContent  As String = "*.*") As String
' CHOIX D'UN FICHIER pour  VB6, VBA
' mettre un contrôle "CommonDialog1" sur  une feuille (ici Form1)
With oCD
    .FileName = ""          'Efface,(re)met un  fichier
    .Flags = cdlOFNHideReadOnly + cdlOFNAllowMultiselect +  cdlOFNExplorer + cdlOFNFileMustExist
    .DialogTitle = sTitle
    .Filter = sFiltreContent
    .ShowOpen               'ouverture
    FileOpen = .FileName    'récupère le  nom
End With
End Function

Private Sub Command1_Click()
    MsgBox FileOpen(Form1.CommonDialog1)
End Sub