Option Explicit
Sub Test()
Dim Pag1 As Range, Pag2 As Range, Pag3 As Range
Dim DerLig As Long, Rng As Range
With Feuil1
DerLig = .Range("X" & Rows.Count).End(xlUp).Row
Set Pag1 = .Range(Cells(1, "A"), Cells(43, "J"))
Set Pag2 = .Range(Cells(2, "L"), Cells(DerLig, "Y"))
Set Pag3 = .Range("L34:P66")
Set Rng = Union(Pag1, Pag2, Pag3)
Rng.Select
End With
ActiveSheet.PageSetup.PrintArea = Rng.Address
End Sub