Function MFC(plage As Range, txt$) As Boolean
If txt = "" Then Exit Function
Dim tablo, i&
tablo = Intersect(plage, plage.Parent.UsedRange)
For i = 1 To UBound(tablo)
If tablo(i, 1) & tablo(i, 3) = txt Then MFC = True: Exit Function
Next
End Function