==Script==

Chemin = inputbox("Entrez le chemin du dossier racine.", "Créaliste")

Set fso = CreateObject("Scripting.FileSystemObject")

Set Dossier = fso.GetFolder(Chemin)

Set Liste = fso.CreateTextFile("Liste.txt", false)

For Each SDossier in Dossier.SubFolders

Liste.Writeline ""

Liste.Writeline "==" & SDossier.Name & "=="

For Each Fichier in SDossier.Files

Liste.Writeline "*" & Fichier.Name

Next

For Each SSDossier in SDossier.SubFolders

Liste.Writeline ""

Liste.Writeline "===" & SSDossier.Name & "==="

For Each Fichier in SSDossier.Files

Liste.Writeline "*" & Fichier.Name

Next

Next

Next