Salut Padawan,
comme ceci, sans doute...
Private Sub Worksheet_Change(ByVal Target As Range)
'
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
'
If Not Intersect(Target, Range("E:E")) Is Nothing And Target <> "" Then _
Rows(Target.Row).Interior.Color = IIf(UCase(Target) = "BANANE" Or UCase(Target) = "CERISE" Or UCase(Target) = "ORANGE", RGB(140, 180, 220), RGB(255, 0, 0))
'
Application.EnableEvents = True
'
End Sub
A+