Bonjour tout le monde

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 :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
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... et j'aimerai vraiment pouvoir réaliser cette fonction uniquement sur les cellules visibles
Merci pour votre aide