Colorier des lignes de tableau

Bonjour

je ne sais pas trop comment ecrire le code qu'il me faudrait pour colorier toutes les lignes d'un petit tableau (en pièces jointe)

si celle ci comporte le mot "avion" .

je joint mon fichier , en vous remerciant pour tout aide ou explication .

Bonjour,

Surement moyen de faire + optimisé :

Sub Coloriage()

Dim C As Range, Texte As String

For i = 11 To 17

Texte = ""

    For Each C In Range("F" & i & ":H" & i)
        Texte = Texte & C.Value
    Next C

    If InStr(Texte, "avion") > 0 Then
        Range("F" & i & ":H" & i).Interior.ColorIndex = 3
    Else
        Range("F" & i & ":H" & i).Interior.ColorIndex = 0
    End If

Next i

End Sub

ps : Dans le code ci-dessus la ligne se colorie en rouge (color.index = 3) car je ne savais pas quel vert tu voulais, il suffira de remplacer le 3 par la bonne valeur.

Cordialement,

je te remercie infiniment pour cette réponse !

Cordialement , rocket