Recherche avant suppression

j'essaie de faire une recherche en utilisant les filtres mais ça marche pas; ça m'affiche un erreur ici

Sheets("BD").Range("base[#all]").AdvancedFilter Action:=xlFilterCopy, criteriarange _
   :=Sheets("BD").Range("K4:K5"), copytorange:=Sheets("BD").Range("n3:v3"), Unique:=False