Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
If Not Intersect(Target, [plage]) Is Nothing Then
Target.Interior.ColorIndex = Cells(Application.Match(Target.Value, [liste], 0) + 2, "N").Interior.ColorIndex
Target.Font.ColorIndex = Cells(Application.Match(Target.Value, [liste], 0) + 2, "N").Font.ColorIndex
End If
End Sub