Private Sub Worksheet_Change(ByVal Target As Range)
Dim pct, coul
pct = Array(0, 0.1, 0.2)
coul = Array(Shapes("Oval 216").Fill.ForeColor, Shapes("Oval 217").Fill.ForeColor, Shapes("Oval 218").Fill.ForeColor)
Shapes("Tete").Fill.ForeColor = coul(Application.Match([C3], pct) - 1)
Shapes("Bras_D").Fill.ForeColor = coul(Application.Match([C4], pct) - 1)
Shapes("Bras_G").Fill.ForeColor = coul(Application.Match([C4], pct) - 1)
Shapes("Torse").Fill.ForeColor = coul(Application.Match([C5], pct) - 1)
Shapes("Dos").Fill.ForeColor = coul(Application.Match([C6], pct) - 1)
Shapes("Main_D").Fill.ForeColor = coul(Application.Match([C7], pct) - 1)
Shapes("Main_G").Fill.ForeColor = coul(Application.Match([C7], pct) - 1)
Shapes("Jambe_D").Fill.ForeColor = coul(Application.Match([C8], pct) - 1)
Shapes("Jambe_G").Fill.ForeColor = coul(Application.Match([C8], pct) - 1)
Shapes("Pied_D").Fill.ForeColor = coul(Application.Match([C8], pct) - 1)
Shapes("Pied_G").Fill.ForeColor = coul(Application.Match([C8], pct) - 1)
Shapes("Cuir").Fill.ForeColor = coul(Application.Match([C9], pct) - 1)
End Sub