Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("Taches")) Is Nothing And Target.Count = 1 Then
If Target <> "" Then
With Sheets("Params")
Target.Interior.ColorIndex = .Range("ListeCouleurs")(Application.Match(Target, .Range("listeCouleurs"), 0)).Interior.ColorIndex
End With
Else
Target.Interior.ColorIndex = xlNone
End If
End If
End Sub