Diminuer temps de copie feuille

[Fraille]

Bonjour ze forum,

Lorsque je recopie des feuilles j'ai un temps de création assez grand. Serait il possible de diminuer le temps de copie d'une feuille?

Voici le code:

Sub CreerFeuille(nombre As Integer)

Dim i As Integer

For i = 2 To nombre

Sheets('Sub1').Copy After:=Sheets('Sub' & (i - 1))
ActiveSheet.Name = 'Sub' & i
Next i
End Sub

Existe t il des moyens pour diminuer les temps de création feuilles???