Sub macro()
Dim j As Long, o As Byte
For j = 1 To 32
o = 35
Worksheets("i" & j).PageSetup.PrintArea = Worksheets("i" & j).Range("O1:U56").Address
Worksheets("i" & o).PageSetup.PrintArea = Worksheets("i" & o).Range("O1:U56").Address
Next j
Sheets(Array("i1", "i2", "i3", "i4", "i5", "i6", "i7", "i8", "i9", "i10", "i11", "i12", "i13", "i14", "i15", "i16", "i17", "i18", "i19", "i20", "i21", "i22", "i23", "i24", "i25", "i26", "i27", "i28", "i29", "i30", "i31", "i32", "i35")).PrintOut Copies:=1, _
ActivePrinter:="CutePDF Writer sur CPW2:", _
Collate:=True
End Sub