nb valeurs sans doublon selon autre colonne

Function CompteSansDoublon(tablo, v)
Dim d As Object, i&
tablo = tablo 'matrice, plus rapide
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(tablo)
  If tablo(i, 3) = v Then d(tablo(i, 1)) = ""
Next
CompteSansDoublon = d.Count
End Function

=CompteSansDoublon(DECALER(A5;1;;EQUIV("zzz";A:A)-LIGNE(A5);3);"NOK")

Sub CompteSansDoublon()
Dim v, tablo, d As Object, i&
v = "NOK" 'à adapter
tablo = Range("A6:C" & Range("a" & Rows.Count).End(xlUp).Row)
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(tablo)
  If tablo(i, 3) = v Then d(tablo(i, 1)) = ""
Next
[A3] = d.Count
End Sub

=FREQUENCE(SI(FREQUENCE(EQUIV(A6:A12&C6:C12;A6:A12&C6:C12;0);LIGNE(INDIRECT("1:"&LIGNES(A6:A12))));EQUIV(C6:C12;A2:A3;0));{1;2})