Function NOMFREQUENCE$(plage As Range, frequence&, ordre&)
Dim d As Object, ref, n&
Set d = CreateObject("Scripting.Dictionary")
For Each ref In plage
If ref <> "" Then d(ref.Value) = ref.Value
Next
For Each ref In d.keys
If Application.CountIf(plage, ref) = frequence Then
n = n + 1
If n = ordre Then NOMFREQUENCE = ref: Exit Function
End If
Next
End Function