Problème impression "activewindows selectedsheets...."

Bonjour à tous,

dans un de mes fichiers, j'ai une macro (qui a toujours très bien marché...) qui a pour but d'imprimer des sélections de 2 feuilles différentes. Depuis ce matin je n'arrive plus à imprimer, j'obtiens un message d'erreur: "erreur d'exécution "1004" Erreur lors de l'impression sur...."

Voila ma macro:

Sheets("Frais dépl").Select
Range("A1:E56").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$E$56"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets("Contrôle").Select
Range("A1:B41").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$B$41"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Lorsque je clique sur déboguage, Activewindow.selectedsheets...." apparaît toujours en jaune....

Quelqu'un aurait-il une explication?

D'avance merci pour votre aide.

Sanchis81