Sub Imprime_Zone()
Dim Num_Der_Col, Num_Der_Lig, Der_Col, Der_Lig
Num_Der_Col = ActiveCell.SpecialCells(xlLastCell).Column
Num_Der_Lig = ActiveCell.SpecialCells(xlLastCell).Row
For Der_Col = Num_Der_Col To 1 Step -1
Der_Lig = Cells(Rows.Count, Der_Col).End(xlUp).Row
If Der_Lig > 2 Then Exit For
Next Der_Col
Zone_Imp = Range(Cells(2, 1), Cells(Num_Der_Lig, Der_Col)).Address
ActiveSheet.PageSetup.PrintArea = Zone_Imp
ActiveSheet.PrintPreview
End Sub