Compter le nombre de cases différentes

Sub test2()

Dim Val1 As String
Dim Val2 As String
Dim Nb As Integer

Nb = 1
a = i - Nb

'Comparaison de deux cases successives pour vérifier que l'on traite le même type de vélo'
Range("A1").Select
For i = 1 To Range("A65536").End(xlUp).Row
    Val1 = ActiveCell.Value
    Val2 = Selection.Offset(1, 0).Value
         If Val1 = Val2 Then
             Nb = Nb + 1
             Selection.Offset(1, 0).Select
             i = i + 1
         Else
             'ActiveCell = Nb'
             Selection.Offset(-Nb, 2).Select
             'compter le nombre d'emplacements différents'
                 ' ActiveCell.FormulaR1C1 = _
                 "=SUMPRODUCT(1/COUNTIF(R[0]C[-1]:R[& Nb &]C[-1],R[0]C[-1]:R[& Nb &]C[-1]))"'
               ActiveCell.FormulaR1C1 = _
                 "=SUMPRODUCT(1/COUNTIF(B" & a & ":B" & i & ",B" & a & ":B" & i & "))"
             Selection.Offset(Nb + 1, -2).Select
         
         End If
    Nb = 1
           
Next
End Sub