Sub CreateDir()
Dim Nom$, Dossier$, L%
' Mettre ici le chemin du dossier de tête
Nom = "C:\Users\PC_PAPA\Desktop\M92"
' Création dossier de tête s'il n'existe pas
If Len(Dir(Nom, vbDirectory)) = 0 Then MkDir Nom
' Création des sous dossiers
For L = 2 To Cells(65000, "A").End(xlUp).Row
Dossier = Nom & "\" & Cells(L, "A")
If Len(Dir(Dossier, vbDirectory)) = 0 Then MkDir Dossier ' Niveau 1
Dossier = Dossier & "\" & Cells(L, "B")
If Len(Dir(Dossier, vbDirectory)) = 0 Then MkDir Dossier ' Niveau 2
Dossier = Dossier & "\" & Cells(L, "C")
If Len(Dir(Dossier, vbDirectory)) = 0 Then MkDir Dossier ' Niveau 3
Dossier = Dossier & "\" & Cells(L, "D")
If Len(Dir(Dossier, vbDirectory)) = 0 Then MkDir Dossier ' Niveau 4
Next L
End Sub