Sub test()
ActiveSheet.ChartObjects("Graphique_DEMARRAGE").Activate
Dim Valeurs, i As Long, j As Long
With ActiveSheet.ChartObjects("Graphique_DEMARRAGE").Chart
For j = 1 To .SeriesCollection.Count
With .SeriesCollection(j)
Valeurs = .Values
For i = 1 To .Points.Count
If .Points(i).HasDataLabel = True Then
If Valeurs(i) = 0 Then
.Points(i).DataLabel.Text = "Coupl"
End If
End If
Next i
End With
Next j
End With
End Sub