Re
Voilà le code,
En fait ce que tu fais c'est un copie de feuille dans plusieurs, donc tu supprimes tes feuilles 11 à 35 pour que le code suivant puisse fonctionner..
Sub copie()
Application.ScreenUpdating=False 'désavtive mise à jour écran
Dim i As Integer
For i = 11 To 35
Sheets("feuil1").Copy After:=Worksheets(Worksheets.Count)
With ActiveSheet
.Name = "Feuil" & i
End With
Next i
Application.CutCopyMode = False 'vide le presse papier
Application.ScreenUpdating =true
End Sub
A++++