'tiré d'un exemple microsoft (aide "foundfiles")
'crée la liste des chemins des fichiers Excel et la stocke à partir de A10
Set fs = Application.FileSearch
With fs
'thisworkbook.path
.LookIn = repertoire
'suffixe XLS pour fichiers Excel
.Filename = "*.xls"
'tri par ordre alphabétique
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
'si il y a au moins un fichier trouvé, affichage du nombre
MsgBox "Il y a " & .FoundFiles.Count & _
" fichier(s) trouvé(s)."
'écriture de la liste à partie de la ligne 10
For I = 1 To .FoundFiles.Count
'chemin
Range("A9").Offset(I, 0).Value = .FoundFiles(I)
Next I
Else
'si pas de fichier trouvé
MsgBox "Pas de fichier Excel trouvé."
End If
End With