bonjour Jack
tu peux utiliser
.SeriesCollection(x).Caption = Cells(j + 2, 7)
.SeriesCollection(x).DataLabelsCollection.Add
.SeriesCollection(x).DataLabelsCollection(0).Font. Size = 8
.SeriesCollection(x).SetData C.chDimValues, C.chDataLiteral, Plage
bonne journée
MichelXld