Sub Imprime()
Dim derLig As Integer
derLig = Cells(65000, 2).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "A19:J" & derLig
If vbNo = MsgBox("Vous voulez imprimer ce document en mode portrait ?", vbYesNo) Then
With ActiveSheet.PageSetup
.PrintArea = "$A$19:$J$100"
.Orientation = xlPortrait
End With
ActiveSheet.PrintOut
End If
End Sub