Function extrairemotdechaine(cel1 As Range, cel2 As Range)
tablo = Split(cel1, " ")
For i = LBound(tablo) To UBound(tablo)
If InStr(1, tablo(i), cel2) Then
extrairemotdechaine = tablo(i)
Exit For
End If
Next i
End Function
Bonjour
avec une fonction personnalisée
VB:Function extrairemotdechaine(cel1 As Range, cel2 As Range) tablo = Split(cel1, " ") For i = LBound(tablo) To UBound(tablo) If InStr(1, tablo(i), cel2) Then extrairemotdechaine = tablo(i) Exit For End If Next i End Function