Bonjour,
un essai par fonction personnalisée, les appels à la même date/heure ne sont compté qu'une fois:
en H4 : =NbREF(D2:E24;G4)
dans un module standard copier le code suivant:
Function NbREF(Plage, Cel)
Dim T, i As Long, Dico, TT
Set Dico = CreateObject("Scripting.Dictionary")
T = Plage
For i = 1 To UBound(T)
TT = Split(T(i, 2), ",")
For j = LBound(TT) To UBound(TT)
If TT(j) = Cel Then Dico(TT(j) & T(i, 1)) = ""
Next
Next
NbREF = Dico.Count
Set Dico = Nothing
End Function
A+