Sub Impression()
Dim plage As Range, dercel As Range
Set plage = ActiveWindow.Panes(ActiveWindow.Panes.Count).VisibleRange.Resize(1000, 7)
Set dercel = plage.Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
If dercel Is Nothing Then MsgBox "Rien à imprimer...": Exit Sub
Set plage = Intersect(plage, [1:1].Resize(dercel.Row))
Application.EnableEvents = False 'pour désactiver l'événement BeforePrint
plage.PrintOut 'impression de plage
Application.EnableEvents = True
End Sub