Macro - Compter Doublons - Sans tenir compte des lignes masquées

Bonjour à tous

J'ai une macro qui me permet de compter les cellules en doublons sur la colonne B et j'aimerai que celle-ci fonctionne uniquement sur les lignes visibles.

Pour l'instant voici mon code :

For J = 1 To Range("B" & Rows.Count).End(xlUp).Row
If Application.CountIf(Columns(2), Range("B" & J)) > 1 Then 
MsgBox "ATTENTION ! PLUSIEURS N° IDENTIQUES ONT ÉTÉ DÉTECTÉS, VEUILLEZ METTRE A JOUR MANUELLEMENT LE FICHIER"
End If
Next

J'ai essayé de trouver des solutions sur Internet mais ma recherche n'a pas abouti...

Merci pour votre aide