Sub ListeFichiers()
'CbernardT
Dim Dossier As Object, Fichier As Object
Dim Chemin As String
Dim I As Long
'Chemin du dossier à analyser (à adapter au besoin)
Chemin = InputBox("Répertoire?")
'Définition de la variable
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
' Boucle sur les fichiers
For Each Fichier In Dossier.Files
I = I + 1
Cells(I, 1) = Fichier.Name ' Nom du fichier
Cells(I, 2) = Fichier.datecreated ' Date dernière modification
Next
End Sub