Bonjour,
Tu peux t'orienter vers ce style de procédure dans ta macro :
Dim intNbExemplaires as integer
intNbExemplaires = InputBox('Indiquez le nombre d'exemplaires souhaités)
ActiveWindow.SelectedSheets.PrintOut Copies:= intnbExemplaires
Bon courage
A+
Jeannot