Sub DefinePrintZoneExemple1()
ActiveSheet.PageSetup.PrintArea = ActiveCell.CurrentRegion.Address
End Sub
Sub DefinePrintZoneExemple2()
Dim Plage As Range
Set Plage = Range(Range('A1'), Range('D65536').End(xlUp))
ActiveSheet.PageSetup.PrintArea = Plage.Address
End Sub
Sub DefinePrintZoneExemple3()
Const PrintZone As String = 'A1:G'
Dim LastRow As Long
LastRow = Range('A65536').End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = PrintZone & LastRow
End Sub