Limite de l'incrémentation lors de la création d'un objet de manière répétitif ?

 'Compteur d'onglet construits 
 NbOnglet = Worksheets("Messages").Range("D3").Value + 1
  'Indice de dépassement de capacité
   Indice = Indice + 1
   'Vérifie si l'indice de dépassement est divisible par 50 ou premiere copie 
  If Indice = 1 Or NbOnglet Mod 50 = 0 Then
    ' si pas la premiere alors on ferme le classeur virtuel
    If Indice > 1 Then   Workbooks(NomTempo).Close False
      "Ajout d'un nouveau classeur
      Application.Workbooks.Add
       NomTempo = ActiveWorkbook.Name
      'copie les modeles dans le classeur virtuel
     ThisWorkbook.Sheets(NomFeuille).Copy before:=Workbooks(NomTempo).Sheets(1)
     ThisWorkbook.Sheets("Vide").Copy before:=Workbooks(NomTempo).Sheets(1)
  End If
 'copie enfin vers le vrai classeur
   Workbooks(NomTempo).Sheets(NomFeuille).Copy before:=ThisWorkbook.Sheets("Saisie")

Private Sub SaveEtReloadFeuil()
Application.ScreenUpdating = False: Application.EnableEvents = False
'load les noms des feuilles
NameMonClasseur$ = ThisWorkbook.Name
Workbooks(NameMonClasseur$).Activate
ReDim MesFeuil(0) As String: TotFeuil = 0
For I = 1 To Worksheets.Count
 If FSiCestUneFeuilAnnee(Sheets(I).Name) Then 'fonction qui test les feuil valides
    TotFeuil = TotFeuil + 1: ReDim Preserve MesFeuil(TotFeuil)
    MesFeuil(TotFeuil) = Sheets(I).Name
  End If
Next
'cré new.class et copi feuil > new.class
Workbooks.Add: NameNewClasseur$ = ActiveWorkbook.Name
TotF = Workbooks(NameNewClasseur$).Sheets.Count
For I = 1 To TotFeuil
  Workbooks(NameMonClasseur$).Sheets(MesFeuil(I)).Move After:=Workbooks(NameNewClasseur$).Sheets(TotF)
  TotF = TotF + 1
Next
'reactive et save mon class
Workbooks(NameMonClasseur$).Activate: Workbooks(NameMonClasseur$).Save
'recopi de new > mon.clas
TotF = Workbooks(NameMonClasseur$).Sheets.Count
For I = 1 To TotFeuil
  Workbooks(NameNewClasseur$).Sheets(MesFeuil(I)).Move After:=Workbooks(NameMonClasseur$).Sheets(TotF)
  TotF = TotF + 1
Next
Workbooks(NameNewClasseur$).Close SaveChanges:=False 'close class.tmp
Workbooks(NameMonClasseur$).Save 'resave mon.class
Application.EnableEvents = True: Application.ScreenUpdating = True
End Sub

'placer cette routine dans un module et TAPEZ F5 pour l'exécuter
'pour reinitialiser les compteurs d'objets excel
'une feuil tmp est créée puis effacée car il faut en garder une dans mon classeur !
'les feuil sont renommées pour éviter exp Feuil2 copiée qui se retouve en Feuil2(2)
Private Sub ReinitClassExportImportFeuil()
Application.DisplayAlerts = False: Application.EnableEvents = False
Application.ScreenUpdating = False
NameMonClasseur$ = ThisWorkbook.Name
Workbooks(NameMonClasseur$).Activate
'load noms des feuil
TotFeuil = Worksheets.Count
ReDim NomDesFeuilSource(1 To TotFeuil) As String, NomDesFeuilTemp(1 To TotFeuil) As String
For F = 1 To TotFeuil
  NomDesFeuilSource(F) = Sheets(F).Name: NomDesFeuilTemp(F) = "FeuilTMP" & F
Next
'ajoute une feuil tmp dans mon class
FeuilTmp$ = "FeuilTMP": Sheets.Add: ActiveSheet.Name = FeuilTmp$
'création class.tmp
Workbooks.Add: NameClassTemp$ = ActiveWorkbook.Name
'déplace feuil de mon.class NomDesFeuilSource(F) dans class.tmp en NomDesFeuilTemp(F)
TotF = Workbooks(NameClassTemp$).Sheets.Count
For F = 1 To TotFeuil
  Workbooks(NameMonClasseur$).Sheets(NomDesFeuilSource(F)).Move After:=Workbooks(NameClassTemp$).Sheets(TotF)
  TotF = TotF + 1: Workbooks(NameClassTemp$).Sheets(TotF).Name = NomDesFeuilTemp(F)
Next
'opération inverse du class.tmp NomDesFeuilTemp(F) dans mon.class NomDesFeuilSource(F)
Workbooks(NameMonClasseur$).Activate
TotF = Workbooks(NameMonClasseur$).Sheets.Count
For F = 1 To TotFeuil
  Workbooks(NameClassTemp$).Sheets(NomDesFeuilTemp(F)).Move After:=Workbooks(NameMonClasseur$).Sheets(TotF)
  TotF = TotF + 1: Workbooks(NameMonClasseur$).Sheets(TotF).Name = NomDesFeuilSource(F)
Next
Workbooks(NameClassTemp$).Close SaveChanges:=False 'close class temp
Workbooks(NameMonClasseur$).Sheets(FeuilTmp$).Delete 'delete feuil temp
Workbooks(NameMonClasseur$).Save 'save mon class
Application.DisplayAlerts = True: Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

'je mets en tableau toutes les feuilles concernées
'ce qui permet de copier tout d'un bloc
'et qui crée un class avec uniquement mes feuilles
'je delete toutes mes feuilles d'un bloc
'le fait de re-déplaçer toutes les feuil ce classeur n'existera plus
'Application.DisplayAlerts = False Excel n'affichera pas de message!

Public Sub ReinitClassExportImportFeuil()
Application.DisplayAlerts = False: Application.EnableEvents = False: Application.ScreenUpdating = False
ThisWorkbook.Activate: NameMonClasseur$ = ThisWorkbook.Name
'load les noms des feuil concernées(ici avec test perso)
ReDim MesFeuil(1 To 1) As String: TotF = 0
For F = 1 To Worksheets.Count
 If FSiCestUneFeuilAnnee(Sheets(F).Name) Then
   If TotF > 0 Then ReDim Preserve MesFeuil(1 To TotF + 1)
   TotF = TotF + 1: MesFeuil(TotF) = Sheets(F).Name
 End If
Next
If TotF = 0 Then Exit Sub
'copy le tablo des feuil
Sheets(MesFeuil()).Copy: NameNewClasseur$ = ActiveWorkbook.Name: DoEvents
'delete les feuil de mon.class
Workbooks(NameMonClasseur$).Activate: Sheets(MesFeuil()).Delete: DoEvents
'récup les feuil vers mon.class et save
Workbooks(NameNewClasseur$).Sheets(MesFeuil()).Move After:=Workbooks(NameMonClasseur$).Sheets(Sheets.Count)
Workbooks(NameMonClasseur$).Save
Application.DisplayAlerts = True: Application.EnableEvents = True: Application.ScreenUpdating = True
End Sub