Option Compare Text
Function FrequenceTexte(champ As Range)
Set d1 = CreateObject("Scripting.Dictionary")
d1.CompareMode = vbTextCompare
temp = champ
For Each c In temp
If c <> "" Then d1(c) = d1(c) + 1
Next c
Dim b()
ReDim b(1 To Application.Max(Application.Caller.Rows.Count, d1.Count), 1 To 2)
i = 1
For Each c In d1.keys
b(i, 1) = c: b(i, 2) = d1(c)
i = i + 1
Next
Call tri(b, 1, d1.Count)
FrequenceTexte = b
End Function