VBA Excel Pb avec un filtre

Bonjour,

Je débute en VBA (c'est ma deuxième macro) et j'ai l'erreur 1004, et je ne comprends pas d'où elle vient...
Voilà, j'ai conçu la macro sur classeur vide, et elle foncitonnait très bien. Je l'ai copié collé sur le fichier sur lequel je travaille en modifiant les coordonnées, et ça ne marche plus, je ne comprends pas pourquoi. ://

Sub FiltreAuto()
Dim Crit
Crit = InputBox("entrez un mot clé (attention aux accents) ", "RECHERCHE", 0)
ActiveSheet.Range("$A$2:$A$16").AutoFilter Field:=1, Criteria1:="*" & Crit & "*"
End Sub
Sub FiltreAS()
ActiveSheet.Range("$E2:$E16").AutoFilter Field:=1, Criteria2:="x"
End Sub
Sub FiltreIDE()
ActiveSheet.Range("$F2:$F16").AutoFilter Field:=1, Criteria2:="x"
End Sub
Sub BtnSuppFiltres_Click()
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=3
End Sub

La FiltreAuto fonctionne bien, mais pas les 3 autres.
La FiltreAuto s'applique sur la colonne A à partir de la ligne 2. FiltreAS s'applique sur la colonne E et FiltreIDE sur la colonne F (2eme ligne aussi). Le but de ces macro est d'afficher les lignes où il y a un "x".

Merci pour votre aide...