Sub Impression()
Dim Deb As Integer, Inc As Integer, NbEx As Variant
NbEx = InputBox("Combien de pages voulez-vous ?", "Nombre de page", 1)
' Si clique sur annuler, on sort
If NbEx = "" Then Exit Sub
' Si la valeur n'est pas nuémrique
If Not (IsNumeric(NbEx)) Then
MsgBox "La valeur saisie doit être un chiffre !", vbCritical, "ATTENTION ..."
Exit Sub
End If
' Transformer en valeur entière
NbEx = CInt(NbEx)
' Avec la feuille
With Sheets("Feuil1")
' Si jamais eu d'impression on commence à 1
' Sinon on incrémente pour la suite
If .Range("C5").Value = "" Then Deb = 1 Else Deb = CInt(.Range("C5")) + 1
' Faire la boucle du début jusqu'au nombre d'exemplaire
For Inc = Deb To Deb + NbEx - 1
.Range("C5").Value = Inc
.Range("C27").Value = Inc
.PrintOut
Next Inc
End With
End Sub