Function RechvM(clé As Range, champ As Range, colResult)
Application.Volatile
Dim i, k, n As Integer
a = champ.Value
b = clé.Value
r = colResult.Value
Dim temp()
ReDim temp(LBound(b) To UBound(b))
For m = LBound(b) To UBound(b)
mot = b(m, 1)
For k = 1 To champ.Count
cel = a(k, 1)
n = 0
For i = 1 To Len(mot)
If InStr(cel, Mid(mot, i, 1)) > 0 Then n = n + 1
Next i
If n >= 5 Then temp(m) = r(k, 1): Exit For
Next k
Next m
RechvM = Application.Transpose(temp)
End Function