Bonjour,
Remplace ces 2 lignes :
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True,
IgnorePrintAreas:=False
par :
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Il faut faire attention quand on passe à la ligne d'un code.