Numéroteur

J'ai oublié de préciser que l'incrémentation doit se faire à chaque page imprimée............ Merci

Sub compteur()
Set cellule = Application.InputBox(prompt:="Sélectionner la cellule où doit s'inscrire le numéroteur", Title:="Numéroteur automatique", Type:=8)
compteur = Application.InputBox(prompt:="Inscriver le nombre de départ du compteur", Title:="Numéroteur automatique", Type:=1)
cellule.Value = compteur
message1 = "Lancer l'impression"
style1 = vbYesNo
titre1 = "Imprimer"
retour:
impression = MsgBox(message1, style1, titre1)
If impression = vbNo Then Exit Sub
ActiveSheet.PrintOut
compteur = compteur + 1
cellule.Value = compteur
GoTo retour
End Sub