Copier des données d'une liste dans des onglets

Bonjour,

dans le fichier joint il y a une macro qui permet de créer autant d'onglets que de noms dans la liste.

par contre je voudrais un code ou un bout de code qui permettrait de copier les données des colonnes B et C de la liste dans les cellules F6 et F8 des onglets ?

merci de votre contribution

bonne soirée

Bonjour,

A tester...

Cdlt.

Sub Onglet_Selon_Modele3()
Dim c As Range

    Application.ScreenUpdating = False
    Set c = Worksheets("Liste").Range("A1")
    Do Until IsEmpty(c)
        Worksheets("MODELE").Copy After:=Worksheets(ThisWorkbook.Sheets.Count)
        With Worksheets(ThisWorkbook.Sheets.Count)
            .Name = c.Value
            .Range("D3") = c.Value
           .Range("F6") = c.Offset(0, 1).Value
            .Range("F8") = c.Offset(0, 2).Value
        End With
        Set c = c.Offset(1, 0)
    Loop

    Application.ScreenUpdating = True
End Sub