Function y_a_t_il(target As Range, cellule As Range, nbcar As Integer) As Boolean
Application.Volatile
Dim i As Integer
y_a_t_il = False
If Len(target) <= nbcar Then
If InStr(cellule, target) > 0 Then y_a_t_il = True
Exit Function
End If
For i = 1 To Len(target) - nbcar
If InStr(cellule, Mid(target, i, nbcar)) > 0 Then
y_a_t_il = True
Exit Function
End If
Next i
End Function