Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$11" Then
valeur = Target.Value
With Range("b11").Interior
If valeur >= 0.9 Then 'couleur verte
.ColorIndex = 4
.Pattern = xlSolid
ElseIf valeur >= 0.75 Then 'couleur jaune
.ColorIndex = 6
.Pattern = xlSolid
ElseIf valeur >= 0.5 Then ' couleur orange
.ColorIndex = 45
.Pattern = xlSolid
ElseIf valeur < 0.5 Then 'couleur rouge
.ColorIndex = 3
.Pattern = xlSolid
End If
End With
End If
End Sub