Cacher lignes en fonction d'1 critère VBA

Bonjour à tous,

Je souhaiterais cacher les lignes dont la valeur dans les cellules de la colonne A sont différentes de la valeur indiquée dans la cellule B1 de la feuille ETIQUETTES.

J'ai réalisé une macro nommée "Filtrer_DP_Etiquettes" :

   Sub Filtrer_DP_Etiquettes()

   Application.ScreenUpdating = False

   Dim Ligne As Long

       For Ligne = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1

           If Not Cells(Ligne, "A") = Range("B1") Then Rows(Ligne).Hidden = True

       Next Ligne

   Application.ScreenUpdating = True

   End Sub

Celle-ci fonctionnée auparavant en cliquant sur le bouton "Filtrer DP" .... mais ne fonctionne plus ....

Pourriez-vous m'aider à identifier l'erreur ?

Merci

Fabien

Bonjour,

les formules en fin de colonne A (ligne 10997) font référence à un erreur,

='DP DS Cde'!#REF!

Merci beaucoup