Highlight Liste Texte

Bonjour,

Vous serez t-il possible de m'aider pour améliorer la macro ci-joint.

Le but est de Mettre en valeur les celulles comportant un ou des Mots précis.

Mon exemple fonctionne avec un Mot comp!AI2 que je voudrai étendre a AI2,AI3,AI4.... SI non vide

de plus je voudrai y ajouté une exeption si dans ma feuille "A" existe le mot suivi de @ alors le Marquer aussi

Dans mon exemple = TAP

Merci par avance de votre précieux Aide

Bien cordialement, et portez vous bien

Bonjour,

à tester,

ps/ pour enlever la couleur modifier c.Interior.ColorIndex = 3 pour c.Interior.ColorIndex = 0

Sub Couleur()
Dim keywords As String, c As Range, n As Integer
Set plg = Range("H1:S28")
For Each réf In Sheets("Comp").Range("AI2:AI" & Sheets("Comp").Cells(Sheets("Comp").Rows.Count, "AI").End(xlUp).Row)
  keywords = réf
  With plg
    Set c = .Find(keywords, LookIn:=xlValues, LookAt:=xlPart)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Interior.ColorIndex = 3
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
 End With
Next
MsgBox "FIN"
End Sub

Impeccable c'est du grand Art MERCI INFINIMENT