Bug lors de la copy d'une sheet VBA Excel

Bonjour,

Je suis en train de dévelloper une appli sur Excel2003 en VBA.

A un moment, dans cette appli, j'utilise 4 feuilles modèles que je copie en fonction de mon besoin.

Si ma gamme contiens 4 opérations, alors je copie 4fois les 4 feuilles...

Jusqu'à maintenant, sur tous les articles que j'avais fait, tout se passait bien.

J'ai donc essayé de lui faire avaler un plus gros article avec 39 opérations.

Au final, je devrais me retrouver avec 2 feuilles de présentation, mes 4 feuilles modèles et 39x4 feuilles soit 162 feuilles.

Seulement, au bout de la 106 ème feuille, j'obtiens l'erreur suivante
La methode copy de la classe sheets a echoué.

Quelqu'un a t'il une idée???

Voici une partie de la commande

cpt3 = 0
For cpt2 = 0 To cpt1 - 1
Sheets(Array("IT_modéle", "FOC_modéle", "FAC_modéle", "FACVS_modéle")).Select
Sheets(Array("IT_modéle", "FOC_modéle", "FAC_modéle", "FACVS_modéle")).Copy Before:=Sheets(Derniere_feuille)
vtop = Sheets("GAMME").Range("a19").Offset(cpt3, 0).Top + 2

'************ Création des IT ************

If Sheets("GAMME").Range("j19").Offset(cpt3, 0) = 0 Then
Sheets("IT_modéle (2)").Delete
Else
.......
End If

'************ Création des FOC ************
If Sheets("GAMME").Range("j19").Offset(cpt3, 2) = 0 Then
Sheets("FOC_modéle (2)").Delete
Else
.......
End If


'************ Création des FAC ************
If Sheets("GAMME").Range("j19").Offset(cpt3, 1) = 0 Then
Sheets("FAC_modéle (2)").Delete
Else
.......
End If

'************ Création des VS ************
If Sheets("GAMME").Range("j19").Offset(cpt3, 3) = 0 Then
Sheets("FACVS_modéle (2)").Delete
Else
........
End If

'Sert à passer d'une page à une autre
If cpt3 <> 24 And cpt3 <> 70 And cpt3 <> 116 And cpt3 <> 162 Then
cpt3 = cpt3 + 1
Else
cpt3 = cpt3 + 22
End If


Next

Merci à tous ceux qui prendrons un peu de leur temps pour répondre à cette question et n'hesitez pas à regarder ma question de la semaine dernière à propos de TopSolid et VBA