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

        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, bonjour le forum,

Le code que tu présentes ne fais que créer, par une boucle, autant d'onglets qu'il y a de cellules éditées dans la colonne A de l'onglet Liste. Une fois le nouvel onglet créé, il le renomme avec la valeur de la cellule de la boucle et renvoie cette valeur dans la cellule D3 du nouvel onglet crée. En aucun cas il ne recopie les données contenues dans la colonne A !...

Donc je ne comprends pas ta question...