Sub Copie40()
Dim i As Integer
For i = 1 To 40
Sheets("Feuil1").Copy After:=Sheets(i)
Next
End Sub
Sub QuaranteNuancesDeFeuilles()
Dim i As Byte
Application.ScreenUpdating = False
For i = 1 To 40
Sheets("Feuil1").Copy after:=Sheets(Sheets.Count)
Next i
End Sub