Dupliquer une feuille et affecter nom de feuille

Bonjour,

J'aimerais dupliquer une feuille autant de fois qu'il y a de code dans une liste de plus, j'aimerais aussi que la feuille soit nommés avec les valeur de cette liste. Dans mon classeur c'est la feuille test qui doit être dupliqué.

Merci beaucoup pour votre aide !

Bonjour,

Oh non, pas une macro pour créer automatiquement des centaines de feuilles

Nous n'avons pas d'autres choix que de duppliquer cette feuille plein de fois?

Et oui malheureusement

Bonjour,

A tester :

Sub add_sheet()

Dim nbsheet, i As Integer
nbsheet = Range("A1").End(xlDown).Row

For i = 1 To nbsheet
    Worksheets("TEST").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = Sheets("Feuil1").Range("A" & i).Value
Next i

End Sub

Super merci ça fonctionne maintenant est-il possible d'affecter le nom de la feuille en cellule C1 ?

Comme ceci :

Sub add_sheet()

Dim nbsheet, i As Integer
nbsheet = Range("A1").End(xlDown).Row

For i = 1 To nbsheet
    Worksheets("TEST").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = Sheets("Feuil1").Range("A" & i).Value
    ActiveSheet.Range("C1").Value = ActiveSheet.Name
Next i

End Sub

Merci beaucoup