Recherches d'expressions à isoler

bonjour,

1er tableau ; je dois analyser un fichier CRM où des commerciaux apposent des commentaires clients.

2eme tableau : je dois le rapprocher avec une liste "d'expressions à banir" (black list)

l'objectif est de ressortir un 3eme tableau avec le numéro de la demande/le champs à analyser (son commentaire)/ l'expression retrouvée (expression de la black list)/le nom et le prénom du client

voici un exemple en pièce jointe..

Quelle est la formule la plus appropriée ? je ne sais pas si j'ai été assez claire dans mes explications mais je ne suis vraiment pas pro..

merci pour votre aide précieuse !

Bonjour,

Peut-être qu'un intervenant est disposé à travailler sur ton sujet en te dispensant de fournir un modèle ?

Ce n'est pas mon cas !

Cordialement.

Oups... voici le fichier Excel.

Désolée c'est mon premier post je n'ai vraiment pas l'habitude.

Re,

Sub RechercheExpressions()
    Dim Texp(), blckLst, Saisie, ExpS, exp$, e%, i%, j%, n%
    With Worksheets("tableau 1 Saisie CRM")
        n = .Cells(.Rows.Count, 1).End(xlUp).Row
        If n > 1 Then
            Saisie = .Range(.Cells(2, 1), .Cells(n, 4)).Value
        Else
            MsgBox "Le tableau de saisie est vide !", vbInformation, "Erreur"
            Exit Sub
        End If
    End With
    blckLst = [blacklist].Value
    For i = 1 To UBound(Saisie)
        ExpS = Split(Saisie(i, 1))
        For j = 0 To UBound(ExpS)
            exp = LCase(Trim(ExpS(j)))
            If exp <> "" Then
                For n = 1 To UBound(blckLst)
                    If blckLst(n, 1) = exp Then
                        ReDim Preserve Texp(4, e)
                        Texp(0, e) = Saisie(i, 2): Texp(1, e) = Saisie(i, 1)
                        Texp(2, e) = blckLst(n, 1): Texp(3, e) = Saisie(i, 3)
                        Texp(4, e) = Saisie(i, 4): e = e + 1
                        Exit For
                    End If
                Next n
            End If
        Next j
    Next i
    With ActiveSheet
        Application.ScreenUpdating = False
        .Range("A1").CurrentRegion.Offset(1).Clear
        If e > 0 Then
            With .Range("A2").Resize(e, 5)
                .Value = WorksheetFunction.Transpose(Texp)
                .Borders.Weight = xlThin
            End With
        Else
            .Range("C2") = "Pas d'espression trouvée"
        End If
    End With
End Sub

Cordialement.

bonjour

un essai sans vba

cordialement