Re,
bon j'ai pas le temps pour le faire mainenant mais je pense que tu dois aller dans ce sens
Sub Print_Test()
With ActiveSheet.PageSetup
.PaperSize = xlPaperA4
.BlackAndWhite = False
End With
With ActiveSheet.PageSetup
.PaperSize = xlPaperA3
.BlackAndWhite = False
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1 '.....
'.....
End Sub
essaie d'avancer un peu, sinon le soir je vois ca