Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([planning], Target) Is Nothing Then
For i = 1 To [couleurs].Count
lg = Len(Sheets("couleurs").Range("couleurs")(i))
If UCase(Left(Target.Value, lg)) = UCase(Sheets("couleurs").Range("couleurs")(i)) Then
temp = Sheets("couleurs").Range("couleurs")(i).Interior.ColorIndex
Target.Interior.ColorIndex = temp
Exit For
End If
Next i
End If
End Sub