macro zone d'impression

Sub détermine_zone_impression()
Set Vcell = Cells.Find("*", , , , xlByRows, xlPrevious)(2)
Set HCell = Cells.Find("*", , , , xlByColumns, xlPrevious)(, 2)
ActiveSheet.PageSetup.PrintArea = Range("A1", Cells(Vcell.Row - 1, HCell.Column - 1)).Address
End Sub

Sub détermine_zone_impression()
Set Vcell = Cells.Find("*", , , , xlByRows, xlPrevious)(2)
Range(Vcell.Address).Select
Set Hcell = Cells.Find("*", , , , xlByColumns, xlPrevious)(, 2)
Range(Hcell.Address).Select
Range("A1", Cells(Vcell.Row - 1, Hcell.Column - 1)).Select
ActiveSheet.PageSetup.PrintArea = Range("A1", Cells(Vcell.Row - 1, Hcell.Column - 1)).Address
End Sub