Filtre auto + Suppression qui ne marche pas

Bonjour à tous,

Etant débutant en VBA, je vous contacte car je n'arrive pas trouver de solution depuis 2 jours.

J'ai créé (plutôt bidouillé) une macro qui effectue un filtre sur la deuxième colonne puis supprime la ligne des éléments filtrés.
Et s'il n'y a pas de résultat, un petit message s'affiche.

Selon son humeur, elle se bloque soit au filtrage (ligne 12), soit à la suppression (ligne14). Et dans le meilleur des cas, celle-ci s'exécute, se termine mais ne fait pas le boulot.

Macro utilisée:

Sub Liste_a_filtrer()

'Suppression des lignes contenant un mot interdit
Dim Plage As Range
Dim motInterdit As String
Liste = "Feuil1"
motInterdit = "A supprimer" 'paramétrage du mot interdit
Worksheets(Liste).Select
With Worksheets(Liste)
    Set Plage = .Cells(2, 2).Resize(.UsedRange.Rows.Count - 1, .UsedRange.Columns.Count)    'Définition de la plage de filtre
    With .Range("A1:B1")
        .AutoFilter Field:=1, Criteria1:=motInterdit      'Application du filtre sur la colonne B
        On Error Resume Next
            Plage.SpecialCells(xlCellTypeVisible).EntireRow.Delete  'Suppression de la ligne si résultat du filtre
            If Err <> 0 Then MsgBox "Liste prête"
        On Error GoTo 0
        .AutoFilter 'Suppression du filtre
    End With
End With

End Sub

Est ce que quelqu'un a un début d'explication ?

Cordialement