bonjour à tous, je vais essayer d'exprimer le plus clairement possible mon probleme.
 
je dispose de 3 colonne excel G, I et J. G étant sur une feuille séparé de I et J.
 
G est une colonne contenant une phrase par cellule.
I une colonne contenant un mot clé par cellule et J un code associé à chaque mot clé (il y a donc un nombre égal de ligne en I et J) comme ci dessous:
     
    G : phrases                        I:mots clés                  J:Code      
1: il fait bau                            sui                             19
2: je suis content                   aime                            32
3: il pleu                                fait                             51
4: j'aime le chocolat               content                         69
                                             il                               25
 
 
     Je voudrait donc réaliser une macro permettant, pour chaque cellule de la colonne G, de détecter si UN des mot clé de la colonne I est présent, et si oui faire correspondre dans une colonne suplémentaire le code associé.
 
pour le moment j'ai fait un début de programme (ci dessous)ne comblant pas entierement mes besoins...(et de plus ne fonctionnant pas corectement.... )
 
Sub testpanne()
 
Dim mot As Range, phrase As Range
Dim correspond As String
For Each phrase In Range("G2:G25" )
    correspond = "non"
    For Each mot In Range("I2:I98" )
        If InStr(phrase.Value, mot.Value) > 0 Then
            correspond = "oui"
            Exit For
        End If
    Next mot
    If correspond = "non" Then
        Cells(phrase.Row, phrase.Column + 3).Value = "PAS OK"
    Else
         Cells(phrase.Row, phrase.Column + 3).Value = "OK"
    End If
Next phrase
End Sub
 
 
Toute les lumières seront les bienvenues, merci d'avance   .