Option Explicit
Sub MajDossiers()
Dim Fso As Object, SousDossier As Object, Sd As Object, _
Lig As Long, Chemin As String
Set Fso = CreateObject("Scripting.FileSystemObject")
Chemin = "C:\Home\" 'à modifier
Set SousDossier = Fso.GetFolder(Chemin)
For Each Sd In SousDossier.SubFolders
With Sheets(1) 'à modifier
Lig = .Range("a65536").End(xlUp).Row + 1
.Range("a" & Lig).Value = Sd.Name 'Nom de la personne
.Range("b" & Lig).Value = Sd.DateLastModified 'Date de modification
.Range("c" & Lig).Value = Sd.Files.Count 'Nombre de fichiers
.Range("d" & Lig).Value = (Sd.Size / 1024) / 1024 'Poids en Mo
.Range("d" & Lig).Value = Format(.Range("d" & Lig).Value, "0.00")
End With
Next
End Sub