Sub impression()
Q = Application.InputBox("Combien de copies ?", "IMPRESSION")
If Not IsNumeric(Q) Then Exit Sub
For i = 1 To CInt(Q)
Application.Wait (Now + TimeValue("0:00:03")) 'ici 3 secondes
Range("A11") = i & "/" & CInt(Q)
ActiveSheet.Range("A4:N51").PrintOut
Next
End Sub