Function CHERCH$(txt1$, txt2$, plage As Range, n As Byte)
Dim i%, t$
For i = 1 To Len(txt1) - n + 1
t = "*" & Mid(txt1, i, n) & "*"
If Application.CountIf(plage, t) Then CHERCH = "X": Exit Function
Next
For i = 1 To Len(txt2) - n + 1
t = "*" & Mid(txt2, i, n) & "*"
If Application.CountIf(plage, t) Then CHERCH = "X": Exit Function
Next
End Function