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é.
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
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