Sub ListeFichiers()
Dim Chemin$, Fichier$, L%
Chemin = [A1]: If Right(Chemin, 1) <> "\" Then Chemin = Chemin & "\"
Fichier = Dir(Chemin & "*.xls*")
L = 1: [A:A].ClearContents: [A1] = Chemin
Do While Len(Fichier) > 0
L = L + 1: Cells(L, "A") = Fichier
Fichier = Dir()
Loop
Columns.AutoFit
End Sub