Bonjour , je souhaiterai créer une petite fonction qui me permette de compter le nombre de cellule ayant la même information

Par exemple supposont que dans la cellule B1 , B2 et B3 j'ai la même chose
je souhaiterai (et cela peut importe que je soit sur B1 , B2 ou B3) qu'on m'affiche 3

Pour l'instant j'ai un bout de code mais lorsque je suis en B1 il me met 3 , en B2 : 2 et en B3 : 1

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
NbRevision = 1
    For j = 1 To ligne 'ligne correspond à la derniere ligne non vide du classeur 
        If Cells(j, 2).Value = Cells(j + 1, 2).Value Then
            NbRevision = NbRevision + 1
        Else
            GoTo Suite
        End If
    Next j
Suite: 
 
MsgBox (Nbrevision)
PS : on ne peut pas avoir la meme info en B1 et C1 par exemple