Re : macro print plusieurs feuilles
Bonjour chez vous
Une autre possiblité
Sub macro()
Dim j As Long
For j = 1 To 3
Worksheets("i" & j).PageSetup.PrintArea = Worksheets("i" & j).Range("O1:U56").Address
Next j
Sheets(Array("i1", "i2", "i3")).PrintOut Copies:=1, _
ActivePrinter:="CutePDF...