Sub Macro1()
Dim CH As String 'déclare la variable CH (Chemin d'accès
Dim FD As FileDialog 'déclare la variable FD (objet File Dialog)
Dim FS As Variant 'déclare la variable FS (Fichier Sélectionné)
CH = "C:\Users\DrDege\Documents\Blabla1\Blabla2" 'définit le chemin CH (à adapter à ton cas)
ChDir CH 'définit le dossier de travail
Set FD = Application.FileDialog(msoFileDialogOpen) 'définit la variable FD (Boîte de dialogue "Ouvrir")
With FD 'prend en compte la variable FD
.AllowMultiSelect = True 'autorise la sélection multiple
.Show 'affiche
If .SelectedItems.Count > 0 Then 'si le nombre d'éléments sélectionnés est supérieur à 0
For Each FS In .SelectedItems 'boucle sur tous les fichiers sélectionnés
FD.Execute 'ouvre le fichier
Next FS 'prochain fichier de la boucle
End If 'fin de la condition
End With 'fin de la prise en compte de la variable FD
Set FD = Nothing 'efface de la mémoire la variable FD
End Sub