Microsoft 365 Comment trouver un mot d'une liste dans une phrase sur excel ?

=SIERREUR(INDEX(D$2:D$7;EQUIV(VRAI;ESTNUM(CHERCHE(D$2:D$7;A2));0));"")

Function TxtTrouve(V As Range) As String
t = "'" & Join(Split(Replace(V, "'", "''")), "','") & "'"
Dim Cn As String, RS As Object: Cn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=YES;"""
Sql = "Select * from [Feuil1$D:D] where [Liste de mots ] in (" & t & ")"
 Set RS = CreateObject("ADODB.Recordset")
    RS.Open Sql, Cn, 1, 3
    
If Not RS.EOF Then TxtTrouve = RS.getstring(, , , " ") Else TxtTrouve = ""
RS.Close
Set RS = Nothing
End Function

Sub rouge()
     For Each c In Range("A2:A6").Cells
          i = Evaluate("iferror(AGGREGATE(15,6,ROW(tabel1)/(ISNUMBER(SEARCH(Tabel1," & Chr(34) & c.Value & Chr(34) & "))),1),0)")
          c.Font.Color = RGB(0, 0, 0)
          If i > 0 Then
               s = Application.Index(Range("tabel1").EntireColumn, i)
               p = InStr(1, c.Value, s, 1)
               c.Characters(Start:=p, Length:=Len(s)).Font.Color = RGB(255, 0, 0)
          End If
     Next
End Sub