Création de sous dossiers

Bonjour,

Je ne sais pas si ma question ce pose sur ce forum mais je tente ma chance.

J'ai créé une macro excel (que j'ai trouvé en naviguant sur internet) afin de créer 900 dossiers en même temps. Elle fonctionne très bien.
Mon problème c'est qu'il faudrait que j'insère dans chacun de ces dossiers les 6 mêmes sous dossiers ayant pour nom : 1-XXXX ; 2-YYYY etc...

Je vous met la macro utilisée pour la création des dossiers :

"Public Sub Creation_dossier()
Dim c
On Error Resume Next
MkDir "G:\GESTION\I . GESTIONNAIRES\CHLOE\LAURE\Atelier BG44 2020 - Organisation admin\3. Organisation administrative\1- ARBORESCENCE INFORMATIQUE\1. BIENS\B- PNO\"
For Each c In Selection
MkDir "G:\GESTION\I . GESTIONNAIRES\CHLOE\LAURE\Atelier BG44 2020 - Organisation admin\3. Organisation administrative\1- ARBORESCENCE INFORMATIQUE\1. BIENS\B- PNO\" & c.Value
Next
End Sub"

Merci à tous.

Bonne journée.