Function VFM(colText As Range, cible$, colNum As Range) As Variant
Dim d As Object, i&, x$, nmax&
VFM = [#N/A]
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To colText.Count
If colText(i) = cible Then
x = colText(i) & colNum(i)
d(x) = d(x) + 1
If d(x) > nmax Then nmax = d(x): VFM = colNum(i)
End If
Next
End Function