Cacher de lignes

Bonjours à tous,

Voila mon problème, j'ai créé une fiche qui me donne des billet à remplir, chaque fois que je clic sur rajouter un billet cela me donne un nouveau billet. J'ai utiliser la fonction filtre car j'avais essayer de cacher les lignes qui ont un X sur colonne A mais cela me prenait un temps de fous. (surement il y a une possibilité plus rapide. mais vu mes très légère connaissance en VBA??)

Le hic comment faire pour une fois filtré le curseur reviennent à l'endroit ou j'ai cliquer? car la il sélectionne le filtre et je me retrouve chaque fois en haut de la page.

2. cela ne fonctionne pas une fois la feuille protéger?

Je vous joint un fichier d'exemple.

Merci de votre précieuse aides.

Slts

Ben voila j'ai réussis,

il suffisait de ne pas sélectionner, le filtre se prend quand même et pour la protection enlever et remettre le protection.

Sub Masquer()

 ActiveSheet.Unprotect ("mots de passe")

    With Selection
        .AutoFilter Field:=1, Criteria1:="X", Operator:=xlAnd
    End With
  ActiveSheet.Protect ("mots de passe")

End Sub

Slts