liste des fichiers contenus dans un dossier

Sub ListeFichiers_rech()
'CbernardT 
'Application.GoTo Reference:="zae"
    'Selection.ClearContents
    Range("A1").Select
Dim Dossier As Object, Fichier As Object
Dim chemin As String
Dim I As Long
'Chemin du dossier à analyser (à adapter au besoin)
'Chemin = ThisWorkbook.Path
chemin = Sheets("paramètrage").Range("b5").Value
'Chemin = "c:\"
'Définition de la variable
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(chemin)
' Boucle sur les fichiers
Range("a2").Select
I = 2
For Each Fichier In Dossier.Files
'Cells(I, 1) = Fichier.Name ' Nom du fichier
'Cells(I, 2) = Fichier.DateCreated ' Date dernière modification
        Cells(I, 1).Formula = Fichier.Path
        Cells(I, 2).Formula = Fichier.Name
        Cells(I, 3).Formula = Fichier.Size
        Cells(I, 4).Formula = Fichier.Type
        Cells(I, 5).Formula = Fichier.DateCreated
        Cells(I, 6).Formula = Fichier.DateLastAccessed
        Cells(I, 7).Formula = Fichier.DateLastModified
        'Cells(I, 8).Formula = Fichier.ParentFolder
        I = I + 1
Next
End Sub

=SI(LIGNE()<NBVAL(Fichiers);INDEX(Fichiers;LIGNE());"")