Private Sub CommandButton1_Click()
Range("c2").Value = Range("c2").Value + 1
Range("j2").Value = Range("j2").Value + 1
Range("c16").Value = Range("c16").Value + 1
Range("j16").Value = Range("j16").Value + 1
End Sub
Sub impression()
Dim Increment As Range
Dim Nb
Dim I As Byte
Do
Nb = InputBox("Nombre de planches à imprimer")
Loop Until IsNumeric(Nb) Or Nb = ""
If Nb = "" Then Exit Sub
Set Increment = Union(Range("C2"), Range("J2"), Range("C16"), Range("J16"))
Increment = 0
For I = 1 To Nb
Increment = Increment + 1
Sheets("support").PrintPreview
Next I
End Sub