Re,
pour essai, place ce code dans un classeur vierge et lance le (attendre l'arrivée du msgbox)
suivant ta configuration tu auras le nb de feuilles avant plantage
De mon côté ---> 5453 feuilles
Sub nbMaxOnglets()
Application.ScreenUpdating = False
On Error GoTo ErrGestion
While Err = 0
Sheets.Add
i = i + 1
Wend
ErrGestion:
MsgBox Worksheets.Count & " pages"
End Sub