Sub Utilisation_FileDialog_SelectionFichier()
    Dim x As Long
 
    With Application.FileDialog(msoFileDialogFilePicker)
        'Définit un titre pour la boîte de dialogue
        .Title = "Choose your setup file"
 
        .Filters.Clear
        .InitialView = msoFileDialogViewProperties
        .Show
 
        'Boucle sur les fichiers sélectionnés
        For x = 1 To .SelectedItems.Count
            MsgBox .SelectedItems(x)
        Next x
 
    End With
    
    
 
End Sub