Formule contient partie du texte sur une liste

Bonjour,

Je recherche une formule qui me permettrait de trouver une partie du texte dans une cellule à partir d'une liste qui contient les mot clés

Par exemple, j'ai une liste figée qui contient:

pomme rouge; pomme jaune; poire; framboise

et ma cellule est "Poire Normandie" ou encore "extra pomme rouge gala", donc la formule doit donner "VRAI"

Par contre si ma cellule est "avocat mexique", elle doit me donner "FAUX".

Auriez-vous une idée comment le faire?

Merci de votre aide

Bonjour,

Si votre fichier vous le permet, avec cette fonction :

Function PresenceChaine(ByVal ChaineAChercher As String, ByVal ChaineDeRecherche As String) As Boolean

Dim I As Integer
Dim TabChaine As Variant

    PresenceChaine = False
    TabChaine = Split(ChaineAChercher, " ")
    If UBound(TabChaine) > 0 Then
       For I = LBound(TabChaine) To UBound(TabChaine)
           If InStr(1, LCase(ChaineDeRecherche), LCase(TabChaine(I)), vbTextCompare) > 0 Then
              PresenceChaine = True
              Exit Function
           End If
       Next I
    Else
       If InStr(1, LCase(ChaineAChercher), LCase(ChaineDeRecherche), vbTextCompare) > 0 Then PresenceChaine = True
    End If

End Function