Code pour supprimer une ligne

Bonjour,
J'essaye de créer une macro dans Excel pour supprimer des lignes avec criteres. Avec le code, il fait le filtre mais il ne supprime pas les lignes. Est-ce que quelqu'un pourrait m`aider?
Private Sub CommandButton2_Click()

Dim CAT As Long
With ActiveSheet
.UsedRange.AutoFilter Field:=18, Criteria1:=Array( _
"Analyse mensuel", "Analyse trimestriel","Supervision", _ Operator:=xlFilterValues
CAT = .Cells(.Rows.Count, 2).End(xlUp).Row
If CAT = 1 Then GoTo P
.Range("A3:A" & CAT).SpecialCells(xlCellTypeVisible). _
EntireRow.Delete
MsgBox "Le rapport est prêt pour l'exportation."
P:
.AutoFilterMode = False
End With
End Sub