Private Sub CommandButton1_Click()
Dim t As Boolean, s1 As Object, s2 As Object, i As Byte, f$
t = CommandButton1.Caption <> "%"
CommandButton1.Caption = IIf(t, "%", "Valeurs")
Set s1 = Me.ChartObjects(1).Chart.SeriesCollection(1)
Set s2 = Me.ChartObjects(1).Chart.SeriesCollection(2)
f = IIf(t, "0%", "0.0") 'format
For i = 1 To s1.Points.Count
s1.Points(i).DataLabel.Text = Format([O5].Offset(i, -2 * t), f)
s2.Points(i).DataLabel.Text = Format([P5].Offset(i, -2 * t), f)
Next
End Sub