Problème avec code qui supprime une ligne

[B][COLOR=Red]On Error Resume Next[/COLOR][/B]
Set Choixlign = Application.InputBox(Prompt:="Sélectionner le dossier à supprimer", Title:="Choix dossier à supprimer", Type:=8)
[B]If Choixlign Is Nothing Then Exit Sub[/B]
Set Choixlign = Choixlign.EntireRow

Sub efface_ligne()
    Dim Choixlign As Range
    Dim AConfirmer
    'choix lignes du dossier à supprimer
    On Error Resume Next
    Set Choixlign = Application.InputBox(Prompt:="Sélectionner le dossier à supprimer", Title:="Choix dossier à supprimer", Type:=8)
    If Err.Number = 424 Then
        MsgBox "Vous avez choisi d'annuler"
        On Error GoTo 0
        End
    Else
        Set Choixlign = Choixlign.EntireRow
        Choixlign.Select
        AConfirmer = MsgBox(Prompt:="Confirmez la suppression de ce dossier", Title:="Suppression dossier", Buttons:=vbYesNo + vbExclamation + vbDefaultButton2)
        If AConfirmer = vbYes Then Choixlign.Delete
    End If
End Sub

Sub efface_ligne()
Dim Choixlign
Dim AConfirmer
'choix lignes du dossier à supprimer
On Error Resume Next
Set Choixlign = Application.InputBox(Prompt:="Sélectionner le dossier à supprimer", Title:="Choix dossier à supprimer", Type:=8)
If Err.Number = 0 Then
    On Error GoTo 0
     Set Choixlign = Choixlign.EntireRow
 
     Choixlign.Select
     AConfirmer = MsgBox("Confirmez la suppression de ce dossier", _
                        vbYesNo + vbExclamation + vbDefaultButton2, _
                        "Suppression dossier")
     If AConfirmer = vbYes Then Choixlign.Delete
End If
End Sub