Sub AfficherEtiquettes()
Dim s As Series, i As Integer
With ActiveSheet.ChartObjects(1).Chart
.ApplyDataLabels Type:=xlDataLabelsShowValue
For Each s In .SeriesCollection
For i = 1 To s.Points.Count
s.Points(i).DataLabel.Text = [A1].Offset(i)
Next
Next
End With
End Sub
Sub MasquerEtiquettes()
ActiveSheet.ChartObjects(1).Chart.ApplyDataLabels _
Type:=xlDataLabelsShowNone
End Sub