Copie ça dans le code de la feuille concernée (le code de Feuil1 par exemple) : Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
Dim I As Long
I = Target.Row
Select Case UCase(Cells(I, 2).Value)
Case "HARICOT": Cells(I, 1).Interior.ColorIndex = 4
Case "TOMATE": Cells(I, 1).Interior.ColorIndex = 3
Case "RAISIN": Cells(I, 1).Interior.ColorIndex = 39
Case "ORANGE": Cells(I, 1).Interior.ColorIndex = 45
Case "CITRON": Cells(I, 1).Interior.ColorIndex = 6
Case Else: Cells(I, 1).Interior.ColorIndex = xlNone
End Select
End Sub