VBA: Mise à jour base de données

Sub Macro2()
Dim Reponse As String
Dim DerLig As Long
    'Reponse = InputBox("Quel est le nom à supprimer ?", "SUPPRESSION D'UN NOM", "A")
    With Worksheets("Feuil1")
        'If Reponse <> "" Then
            On Error Resume Next
            .Columns("A:C").AutoFilter
            DerLig = .Range("A" & Rows.Count).End(xlUp).Row
            .Range("$A$1:$C$" & DerLig).AutoFilter Field:=1, Criteria1:="namor"
            .Rows("2:" & DerLig).SpecialCells(xlCellTypeVisible).Delete
            .Columns("A:C").AutoFilter
        'End If
    End With
End Sub

Sub Trier()
Dim DerLig As Long
    With Worksheets("Feuil1")
        DerLig = .Range("A" & Rows.Count).End(xlUp).Row
        .Range("A2:AQ" & DerLig).Sort Key1:=.Range("A2"), Order1:=xlAscending, Header:=xlNo
    End With
End Sub