Bonjour,
Voici un code (macro) à essayer.
Les mots trouvés sont mis en rouge dans la colonne B. C'est optionnel. Juste commenter la ligne de code pour enlever cette fonction.
Sub Compare2Colonnes()
Dim ar, T
Dim i As Long, j As Integer, k As Integer
ar = Cells(1).CurrentRegion.Value
For i = 2 To UBound(ar, 1)
T = Split(ar(i, 1), " ")
For j = LBound(T) To UBound(T)
If Len(T(j)) > 0 Then
k = InStr(1, ar(i, 2), T(j))
If k > 0 Then
Range("B" & i).Characters(k, Len(T(j))).Font.ColorIndex = 3 'Optionnel
Range("C" & i) = "OUI"
End If
End If
Next j
Next i
End Sub
A+