Imprimer 2 feuilles à partir d'un boite de dialogue

Bonjour,

J'utilisais la macro suivante à pârtir d'un feuille de donnée.
J'ai voulu l'associer à un bouton dans une boite de dialogue et ça ne marche pas à la seconde ligne :

"La méthode PrintOut de l'objet Sheets a échoué."

Merci de votre aide


Sub ImprimS1()
Sheets(Array("Feuil1", "Feuil2")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, Preview:=True
Sheets("MenuS").Select
End Sub