Changer la couleur d'une cellule

Bonsoir, j'aimerais réalisé la fonction suivante..Modifier la couleur d'une cellule en fonction d"un texte dans une autre cellule.

J'ai mis en pièce jointe un exemple...

Merci d'avance a tous ceux / celles qui pourront m'aider.

Cordialement

Bonjour,

Peut-être comme cela avec une MFC

Slts

Bonsoir , Merci pour ta réponse..

Ca marche très bien avec une MFC mais j'aurais souhaité le faire avec une fonction car dans chaque cellule de A à G il y a plusieurs conditions

slt,

une idée

Sub color_cells()
Dim i As Long, r1 As Range, r2 As Range
Set r1 = Range("H:H")

   For Each cell In r1
   If IsEmpty(cell) Then GoTo nextcell:
   If cell.Value = "Envoyer le colis" Then Range("A" & cell.Row & ":G" & cell.Row).Interior.Color = vbYellow

nextcell:
  Next cell
End Sub