Impression des 10 dernières lignes d'une zone variable

Private Sub Label1_Click()Dim DerLig As Long, Plg As Range
Application.ScreenUpdating = False
DerLig = Cells(Rows.Count, 1).End(xlUp).Row
Set Plg = Range("A" & DerLig - 10).Resize(11, 7)
ActiveSheet.PageSetup.PrintArea = Plg.Address
ActiveWindow.SelectedSheets.PrintPreview
Application.ScreenUpdating = True
End Sub

Option Explicit


Sub Imprime_X_Lignes()
Dim DerLig&, Plage As Range, X&
DerLig = Cells(Rows.Count, 1).End(xlUp).Row
X = InputBox("Choisir la valeur", " X Dernières Lignes", 10)
Set Plage = Range("A" & DerLig - (X - 1)).Resize(X, 5)
ActiveSheet.PageSetup.PrintArea = Plage.Address
ActiveWindow.SelectedSheets.PrintPreview
End Sub

Option Explicit


Sub Imprime_X_Lignes()
Dim DerL&, Plage As Range, X&
DerL = Cells(Rows.Count, 1).End(xlUp).Row
X = InputBox("Choisir la valeur", " X Dernières Lignes", 10)
If X > DerL Then
MsgBox "Le nombre de lignes demandé est supérieur au nombre de lignes", vbCritical, "Oups !!!"
Exit Sub
End If
Set Plage = Range("A" & DerL - (X - 1)).Resize(X, 5)
ActiveSheet.PageSetup.PrintArea = Plage.Address
ActiveWindow.SelectedSheets.PrintPreview
End Sub