Function Esk(Plage As Range, Num As String) As Boolean
Dim s, i As Byte, c As Range
If Num = "" Then Exit Function
s = Split(Replace(Num, Chr(10), " "))
For Each c In Plage
For i = LBound(s) To UBound(s)
If c.Value Like "*" & s(i) & "*" Then Esk = True: Exit Function
Next i
Next c
End Function