Sub feuilles()
For i = 1 To 52
Sheets("base").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = "S" & i
Next i
End Sub
Dim i as Integer
Sub feuilles()
Dim i As Integer
For i = 1 To 52
Sheets("base").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = "S" & i
Next i
End Sub