Function contenanceA$(x$, y$)
Dim tablo, i&, a$, j$
tablo = Split(Application.Trim(x$))
For i = LBound(tablo) To UBound(tablo)
If InStr(1, tablo(i), y, vbTextCompare) > 0 Then
If i > LBound(tablo) Then
a = tablo(i - 1)
j = Len(a)
Do Until j = 0
If Not IsNumeric(Mid(a, j, 999)) Then Exit Do
j = j - 1
Loop
If IsNumeric(Mid(a, j + 1, 999)) Then
contenanceA = Mid(a, j + 1, 999) & " " & y
Exit For
End If
End If
End If
Next i
End Function
Function contenanceB$(x$, y$)
Dim tablo, i&, a$, j$
tablo = Split(Application.Trim(x$))
For i = LBound(tablo) To UBound(tablo)
If InStr(1, tablo(i), y, vbTextCompare) > 0 Then
If i > LBound(tablo) Then
contenanceB = tablo(i - 1) & " " & tablo(i)
Exit For
End If
End If
Next i
End Function