Pourquoi, il est plusieurs Bodegue !...Ainsi ils seront quasi obligé d'utiliser ta macro pour imprimer!
Sauf s'ils utilisent le raccourci clavier "Ctrl"+"P", mais là aussi, il y a moyen d'y trouver une parade!...
Sub impression()
Q = Application.InputBox("Combien de copies ?")
For i = 1 To CByte(Q)
[A1] = [A1] + 1
ActiveSheet.PrintOut
Next
End Sub
kjin à dit:Pourquoi, il est plusieurs Bodegue !
Testé cette fois et pas de pbA voir maintenant si l'impression suit (non testé)
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