Création répertoire en fonction d'une liste

Bonjour,

je souhaiterais créer via un bouton des répertoires en partant d'une liste.

Depuis le fichier "Dossier de zone type" (onglet "liste des moyens"), je voudrais créer les répertoires en prenant comme exemple un dossier type et en les nommant d'après la cellule F8 et G8, et suivant chaque ligne, etc ...

Merci d'avance pour votre aide.

Cordialement

bonjour,

une proposition à adapter

Option Explicit

Sub Creation_dossiers()
Dim chemin, i, repertoire_racine
    chemin = "c:\users\...\" ' <- à adapter répertoire source qui doit exister
    repertoire_racine = "Etudes" '<- à adapter répertoire dans lequel créer le sous-répertoire principal
    If Dir(chemin & repertoire_racine) = "" Then
        MkDir chemin & repertoire_racine
    End If
    With Sheets("liste des moyens")
        i = 8
        Do While .Cells(i, 6) <> ""
            On Error Resume Next
            MkDir chemin & repertoire_racine & "\" & .Cells(i, 6) & "-" & .Cells(i, 7)
            On Error GoTo 0
            i = i + 1
        Loop
    End With
End Sub