Compter tant que

Sub Macro1()
Dim pl As Range 'déclare la variable pl (PLage)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim dico As Object 'déclare la variable dico (DICtiOnnaire)
Dim c As Integer 'déclare la variable c (Compteur)

Set dico = CreateObject("Scripting.Dictionary") 'définit la dictionnaire dico
Set pl = Sheets("Feuil1").Columns(1).SpecialCells(xlCellTypeConstants) 'définit la plage pl
For Each cel In pl 'boucle sur toutes les cellules cel de la plage pl
    dico(cel.Value) = "" 'alimente le dictionnaire dico
Next cel 'prochaine cellule de la boucle
c = dico.Count 'définit le compteur c (nombre de valeurs sans doublons)
MsgBox c 'affiche le compteur c
End Sub

Sub compteur()
For k = 1 To [B65000].End(3).Row
  If tx = Cells(k, 2) Then
     Cells(k, 1) = i
  Else
     i = i + 1
     Cells(k, 1) = i
     tx = Cells(k, 2)
  End If
Next
End Sub

Sub Compter_tant_que()
Range("b:b").Sort Range("b1"), xlAscending, Header:=xlNo
Range("A1") = "1"
Range("a2:a" & Range("b65536").End(xlUp).Row).FormulaR1C1 = "=IF(RC[1]=R[-1]C[1],R[-1]C,R[-1]C+1)"
Range("a2:a" & Range("b65536").End(xlUp).Row).Value = Range("a2:a" & Range("b65536").End(xlUp).Row).Value
End Sub

=SOMMEPROD(1/NB.SI(B$1:B1;B$1:B1))