Sub LoadFichier()
ReDim NomFichier$(0)
Chemin$ = "C:\*.*" ' <<<<<< ici le chemin et voir les noms de fichiers "*.xls" !?
NbrFich = 0
Fichier$ = Dir(Chemin$)
Do While (Len(Fichier$) > 0)
NbrFich = NbrFich + 1: ReDim Preserve NomFichier$(NbrFich)' le tableau
NomFichier$(NbrFich) = Fichier$
ActiveSheet.Range("A" & NbrFich).Value = Fichier$' colle nom sur la feuil1
Fichier$ = Dir()
Loop
End Sub