Bonjour,
Une possibilité pas testée :
Code:
Sub Imprimer()
Dim x As Single
Dim debut as single
Dim copie As Single
debut = InputBox("La numérotation démarre à :")
copie = InputBox("Nb de copies :")
For x = debut To copie Step 1
Range("c4").Value = x
ActiveWindow.SelectedSheets.PrintOut
Next x
End Sub
@+