[kjin]

Bonjour,
Une autre solution s'il n'y a pas trop de conditions et bien moins géniale mais qui existe:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
'If Target.Row = 1 Then '-->enlever la quote devant If si on veut limiter la macro ici ligne1
Select Case Target
Case "marcel"
Target.Interior.ColorIndex = 4
Case "lulu"
Target.Interior.ColorIndex = 5
Case "toto"
Target.Interior.ColorIndex = 6
Case "momo"
Target.Interior.ColorIndex = 7
Case "riri"
Target.Interior.ColorIndex = 8
Case "dede"
Target.Interior.ColorIndex = 9
Case Else
Target.Interior.ColorIndex = 0
End Select
'End If
End Sub

A+
kjin