Function Maxi(r As Range)
Dim d As Object, n&
Set d = CreateObject("Scripting.dictionary")
For Each r In r
d(r.Value) = d(r.Value) + 1
Next
n = Application.Max(d.items) 'fréquence max
Maxi = Application.Match(n, d.items, 0) 'rang dans la liste
Maxi = Application.Index(d.keys, Maxi) & " " & n 'Nom + n
End Function