A moins d'utiliser une macro, je ne vois pas de solution :
VB:
Sub Copie40()
Dim i As Integer
For i = 1 To 40
Sheets("Feuil1").Copy After:=Sheets(i)
Next
End Sub
A adapter en fonction du nom de ta feuille d'origine. Cette macro peut aussi être modifiée pour renommer automatiquement les feuilles nouvellement créées.
Une solution par macro (adapter le nom de la feuille à copier)
Code:
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
EDITION: Bonjour FreDOo , désolé pour la collision