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