Recherche de mots

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DLA As Integer 'déclare la variable DLA (Dernière Ligne de la colonne A)
Dim DLB As Integer 'déclare la variable DLB (Dernière Ligne de la colonne B)
Dim I As Integer 'déclare la variable I (Incrément)
Dim J As Integer 'déclare la variable J (incrément)

Set O = Sheets("Feuil1") 'définit l'onglet O
DLA = O.Range("A" & Application.Rows.Count).End(xlUp).Row 'définit la dernière ligne éditée de la colonne A, DLA, de l'onglet O
DLB = O.Range("B" & Application.Rows.Count).End(xlUp).Row 'définit la dernière ligne éditée de la colonne B, DLB, de l'onglet O
For I = 1 To DLA 'boucle 1 : sur tous les mot du texte transposé en colonne A
    For J = 1 To DLB 'boucle 2 : sur tous les mots de la liste en colonne B
        'condition : si le mot de la liste en ligne J colonne 2 (=B) est contenu dans le texte en ligne I colonne 1 (=A)
        If InStr(1, O.Cells(I, 1).Value, O.Cells(J, 2).Value, vbTextCompare) <> 0 Then
            O.Cells(I, 1).Interior.ColorIndex = 3 'colore le mot en colonne A de rouge
            Exit For 'sort de la boucle 2
        End If 'fin de la condition
    Next J 'prochain mot de la liste de la boucle 2
Next I 'prochain mot du texte transposé de la boucle 1
End Sub