Erreur execution 13

bonsoir,

j'ai une erreur d'execution quand je souhaite annuler la boite de dialogue issue de cette macro :

Sub Impression()
    Dim Lig As Integer
    With ActiveSheet
    Lig = InputBox("Indiquez le nombre de la dernière ligne à imprimer ! (ex : mon dernier coureur est en ligne 54)")
        .PageSetup.PrintArea = "$A$1:$D$" & Lig
        .PrintPreview
    End With
End Sub

comment le supprimer ?

merci

Bonsoir

A tester

Sub Impression()
Dim Lig As Integer
  With ActiveSheet
    Lig = Application.InputBox("Indiquez le nombre de la dernière ligne à imprimer ! (ex : mon dernier coureur est en ligne 54)", Type:=1)
    If Lig = 0 Then Exit Sub
      .PageSetup.PrintArea = "$A$1:$D$" & Lig
      .PrintPreview
  End With
End Sub

Merci beaucoup Banzai64 !

ça fonctionne très bien !

bonne continuation