Sub ImprimSecteurB2()
Dim DernièreLigne As Long
DernièreLigne = Cells(Rows.Count, 2).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = Range("B2:W" & DernièreLigne).Address
ActiveSheet.PrintOut Preview:=True, Copies:=1, collate:=True, ignoreprintareas:=False
End Sub
Sub ImprimSecteurY2()
Dim DernièreLigne As Long
DernièreLigne = Cells(Rows.Count, 2).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = Range("Y2:Z" & DernièreLigne).Address
ActiveSheet.PrintOut Preview:=True, Copies:=1, collate:=True, ignoreprintareas:=False
End Sub