Sub ImpressionDerniere()
Dim zi As String, s As String
s = ActiveWindow.VisibleRange.Address
With ActiveSheet.PageSetup
zi = .PrintArea
'.PrintArea = ActiveWindow.VisibleRange.Address
.PrintArea = Range(Cells(Split(Split(s, ":")(0), "$")(2), 1), _
Cells(Split(Split(s, ":")(1), "$")(2), 11)).Address
'prévisualisation de l'impression
'ActiveSheet.PrintPreview
'impression
ActiveSheet.PrintOut
.PrintArea = zi
End With
End Sub