Function aidées()
Application.Volatile
Dim d
Dim tablo, i As Integer
Set d = CreateObject("Scripting.Dictionary")
tablo = Range("C5:D" & Range("C65536").End(xlUp).Row)
For i = 1 To UBound(tablo)
d.Item(tablo(i, 2) & tablo(i, 1)) = d.Item(tablo(i, 2) & tablo(i, 1))
Next i
aidées = UBound(d.Keys) +1
End Function