Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
Case 15
[COLOR="DarkGreen"]'///// debut code à copier/////[/COLOR]
With Target
.Interior.ColorIndex = _
Switch(.Value = 0.1, [COLOR="Blue"]3[/COLOR], .Value = 0.2, [COLOR="Blue"]4[/COLOR], .Value = 0.5, [COLOR="Blue"]4[/COLOR], .Value = 0.5, [COLOR="Blue"]5[/COLOR], _
.Value = 1, [COLOR="Blue"]6[/COLOR], .Value = 3, [COLOR="Blue"]7[/COLOR], .Value = 6, [COLOR="Blue"]8[/COLOR], .Value = 10, [COLOR="Blue"]9[/COLOR])
End With
[COLOR="DarkGreen"]'///// fin code à copier ///[/COLOR]
Case 16
[COLOR="DarkGreen"]' recopier et adapter les valeurs et les codes couleurs ici[/COLOR]
Case 17
[COLOR="DarkGreen"]' recopier et adapter les valeurs et les codes couleurs ici[/COLOR]
End Select
End Sub