Function CombienFois(champ, champcritere)
Application.Volatile
Set mondico = CreateObject("scripting.dictionary")
a = champ
b = champcritere
For i = 1 To UBound(a)
temp = a(i, 1) & " " & b(i, 1)
mondico(temp) = mondico(temp) + 1
Next i
Dim retour()
ReDim retour(LBound(b) To UBound(b))
For i = LBound(b) To UBound(b)
temp = a(i, 1) & " " & b(i, 1)
retour(i) = mondico(temp)
Next i
CombienFois = Application.Transpose(retour)
End Function