Bonsoir Eric
Cette macro de Frédéric Sigonneau devrait faire ton bonheur. (A lancer depuis la macro 'Test" sur une feuille vierge).
Bien sur "c:\Mes Documents" à remplacer par là où tu veux pointer. (a mettre en variable si nécessaire)
Sub test()
TousLesDossiers "c:\Mes Documents", 0
End Sub
Sub TousLesDossiers(LeDossier$, Idx As Long)
Dim fso As Object, Dossier As Object
Dim sousRep As Object, Flder As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.GetFolder(LeDossier)
'examen du dossier courant
For Each Flder In Dossier.SubFolders
Idx = Idx + 1
Cells(Idx, 1).Value = Flder.Path
Next
'traitement récursif des sous dossiers
For Each sousRep In Dossier.SubFolders
TousLesDossiers sousRep.Path, Idx
Next sousRep
Set fso = Nothing
End Sub 'fs
Merci Frédéric
Bonne Nuit Eric
Bonne Nuit ou Bonjour le forum
@+Thierry