Création Dossiers / Sous dossiers / Sous sous dossier via liste

Sub CreationRepertoires()
On Error Resume Next
Dans le cas où une erreur d'éxecution se produit, passe à l'instruction qui suit
i = 1
Définit ta variable i à 1
While Cells(i, 1).Value <> ""
Tant que ta cellule en ligne i et colonne 1 est différente de 0 alors
MkDir ActiveWorkbook.Path & "\" & Cells(i, 1).Value
Création d'un dossier dans ton bureau sous le nom de ta cellule
For j = 2 To 7
Pour une variable j allant de 2 à 5
MkDir ActiveWorkbook.Path & "\" & Cells(i, 1).Value & "\" & Cells(i, j).Value
Création d'un dossier dans le dossier créé auparavant sous le nom de ta cellule en ligne i et colonne j
Next j
Incrémente j (de 1 dans ce cas)
i = i + 1
Incrémente i de 1
Wend
Fin de la boucle tant que
End Sub

Je te conseille de prendre le temps de découvrir comment celà fonctionne pourquoi pas en lançant le programme en mode "pas-à-pas" via Visual Basic.
Celà te permettra de comprendre le fonctionnement et de voir comment faire pour créer tes sous sous dossiers, etc...

Merci !
Mais je n'arrive pas à résoudre mon problème de macro. Je vais essayer de "dessiner" ce que je cherche à faire :

- Dossier 1
- Sous dossier 1
- Sous dossier 2
- Sous sous dossier 1
- Sous sous dossier 2
- Sous dossier 3
- Sous sous dossier 1
- Sous sous dossier 2
- Sous dossier 4
- Sous dossier 5
- Sous sous dossier 1
- Sous sous dossier 2
- Sous sous dossier 3
- Sous sous dossier 4
- Sous sous dossier 5
- Sous sous dossier 6
- Sous dossier 6
- Sous sous dossier 1
- Sous sous dossier 2
- Sous sous dossier 3
- Sous sous dossier 4
- Sous sous dossier 5
- Sous sous dossier 6

Voilà l'arborescence que je veux créer.
Et je veux donc créer une centaine de "Dossier 1" à partir d'une liste (j'ai des noms pour chaque item)

J'ai tenté de modifier la macro dans ce sens, sans succès..