Erreur de copie d'une feuille

[Fraille]

Bonjour,

Voici rapidement un morceau de 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

Donc de temps en temps ça bug avec toujours le même message:

Erreur d'execution 1004
la méthode de la classe worksheet a échoué
Continuer Fin Debogage Annuler

Et en faisant débuguer voici le message d'erreur:

L'instruction à '0x3023b43e' emploie l'adresse mémoire '0x0000006c'. la mémoire ne peut pas être 'read'.

Cliquez sur OK pour terminer le programme.
Cliquez sur Annuler pour déboguer le programme.

Re débuguer

Excel.exe a généré des erreurs et sera fermé par windows. Vous devrez redemarrer le programme.

Un journal des erreurs est en cours de création.

Je pensais que cela pouvait venir de la mémoire mais je n'utilise même pas 20% de la mémoire disponible quand ça bug.

 

[Fraille]

Personne n'aurai une petite idée sur la provenance de l'erreur? Ce que je souhaiterai c'est juste obtenir quelques pistes à explorer!!!

Merci car la vous me tirerez une belle épine du pied!!!