Copie de données dans onglets

bonjour,

j'ai trouvé la macro pour créer des onglets selon un modèle a partir d'une liste :

Sub Creation_Onglets_Selon_Modele()
    Dim c As Range

    Application.ScreenUpdating = False
    Set c = Worksheets("Liste").Range("A1")
    Do Until IsEmpty(c)

        Worksheets("GRILLE DE FACTURATION").Copy After:=Worksheets(ThisWorkbook.Sheets.Count)

        With Worksheets(ThisWorkbook.Sheets.Count)
            .Name = c.Value
            .Range("D3") = c.Value
            .Range("F3") = c.Value
            .Range("F6") = c.Value
        End With

        Set c = c.Offset(1, 0)
    Loop

    Application.ScreenUpdating = True
End Sub

ce code recopie les données contenues dans la colonne A, mais je voudrais qu'il recopie aussi les données contenues dans la colonne B et la colonne C ?

merci pour votre contribution

bonne soirée

Bonjour Astil,

Ci cela peut te guider et trouver une solultion alternative..

bonsoir,

merci pour votre réponse, la macro présente permet de créer des onglets selon la colonne A (noms) de la liste.

mais je voudrais un code pour copier les données des colonnes B et C dans les onglets nominatifs toujours a partir de cette liste.

Merci pour votre contribution

bonne soirée