Sub toto()
ChDir ActiveWorkbook.Path
Extension = "Excel Files (*.xls),*.xls ,Excel Files (*.xlsx), *.xlsx"
'Extension = "Excel Files (*.xls*),*.xls*"
TypeFiltre = 2
Titre = "Sélectionnez plusieurs fichiers (Maintenir CTRL pour sélectionner plusieurs)"
fich = Application.GetOpenFilename(FileFilter:=Extension, FilterIndex:=TypeFiltre, Title:="Toto", MultiSelect:=True)
End Sub