Public Const MonRepertoire = "C:\Documents and Settings\Nom_Utilisateur\Mes documents\"
Sub ListeFichiersRepert()
'activer la reference Microsoft scripting Runtime
Dim fso As Scripting.FileSystemObject
Dim Source As String, f As File, x As Integer
Dim f1 As Folder, f2 As File
Set fso = CreateObject("Scripting.FileSystemObject")
Source = MonRepertoire
x = 1
For Each f In fso.GetFolder(MonRepertoire).Files
Cells(x, 1).Value = f.Name
Cells(x, 2).Value = f.Size
x = x + 1
Next f
For Each f1 In fso.GetFolder(MonRepertoire).SubFolders
Cells(x, 1).Value = f1.Name
Cells(x, 2).Value = f1.Size
x = x + 1
For Each f2 In f1.Files
Cells(x - 1, 3).Value = f2.Name
Cells(x - 1, 4).Value = f2.Size
x = x + 1
Next f2
x = x - 1
Next f1
End Sub