crétion d'un tableau regroupant les chemins complets de fichiers

Dans les références, cocher Microsoft Scripting Runtime

a$ = <chemin complet du répertoire>
Dim fs As FileSystemObject
Set fs = New FileSystemObject
Dim objFolder As Folder
Set objFolder = fs.GetFolder(a$)
Dim f As File
i = 0
For Each f In objFolder.Files
    i = i + 1
<si utilisation sous excel, par exemple>
    Sheets("Sheet1").Cells(i, 1) = f.Path
Next

JO