Sub BoucleFichiers()
Dim Chemin As String, Fichier As String, i As Integer
' Efface liste
Range("A:A").ClearContents
'Définit le répertoire contenant les fichiers, à modifier. ici fichiers sur écran.
Chemin = "C:\Users\PC_PAPA\Desktop\"
'Boucle sur tous les fichiers xls* du répertoire.
Fichier = Dir(Chemin & "*.xls*") ' Type xls, xlsx, xlsm, xlsb.
'Utilisez la syntaxe suivante pour boucler sur tous les types de fichiers:
'Fichier = Dir(Chemin & "*.*")
i = 1
Do While Len(Fichier) > 0
' Range le nom du fichier dans la colonne A
Cells(i, 1) = Fichier
i = i + 1 ' incrément N° de ligne
Fichier = Dir()
Loop
End Sub