bonsoir Christophe,
J'ai essayé, mais j'ai du faire un faux pas quelque part.
Ca ne fonctionne toujours pas.
voici ma macro:
Sub Macro1()
With Feuille.PageSetup
BlackAndWhite = True
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
elle se bloque à la ligne With feuille.PageSetup
Brigitte