Function ColorieImage(s, valeur)
Application.Volatile
Set f = Sheets(Application.Caller.Parent.Name)
Select Case valeur * 100
Case Is < 30
couleur = RGB(255, 0, 0)
Case 30 To 50
couleur = RGB(0, 255, 0)
Case 51 To 80
couleur = RGB(0, 255, 255)
Case Is > 80
couleur = RGB(255, 255, 0)
End Select
f.Shapes(s).Fill.ForeColor.RGB = couleur
End Function