Sub etiq()
Dim ChO As ChartObject
Dim Plg As Range
Dim Col As Byte, NbSer As Byte
Range("A1").Select
Col = [IV1].End(xlToLeft).Column - 1
Set Plg = Range(Cells(1, 2), Cells(1, Col))
For Each ChO In ActiveSheet.ChartObjects
If ChO.Chart.SeriesCollection.Count <> Plg.Count Then
MsgBox "Pas cohérent"
Exit Sub
End If
For NbSer = 1 To ChO.Chart.SeriesCollection.Count
ChO.Chart.SeriesCollection(NbSer).Points(1).ApplyDataLabels Type:=xlShowValue
ChO.Chart.SeriesCollection(NbSer).Points(1).DataLabel.Text = Plg(NbSer)
Next NbSer
Next ChO
End Sub