Problème macro

Bonsoir;
Quelqu'un pourait-il me dire ce qui ne colle pas avec cette petite macros !!
aprés son excécution , au delà de la 13e copie elle m'affiche un message
d'erreur. Merci . Archi
voici Ma macros:
-----------------------------------------
Sub CopieBulletin()
Dim i, z
z = InputBox("Nombre de copies ", "Copie")
For i = 1 To z
Sheets("Elève").Copy After:=Sheets(i)
ActiveSheet.Name = "Elève " & i
Next i
End Sub
-----------------------------------------------