Sub Labell_Pourcent()
Dim I&, J&, F As Worksheet, ChrtObj As ChartObject, Pt As Point
Set F = ThisWorkbook.Sheets("Feuil2") 'à adapter
Set ChrtObj = F.ChartObjects(1)
Application.ScreenUpdating = False
For I = 1 To ChrtObj.Chart.SeriesCollection.Count
On Error Resume Next
ChrtObj.Chart.SeriesCollection(I).DataLabels.Delete
On Error GoTo 0
For J = 1 To ChrtObj.Chart.SeriesCollection(I).Points.Count
Txt = F.Cells(J + 1, I + 1).Text
If Txt < > "" Then
Set Pt = ChrtObj.Chart.SeriesCollection(I).Points(J)
Pt.ApplyDataLabels
Pt.DataLabel.Characters.Text = Txt
Pt.DataLabel.Position = xlLabelPositionBelow
End If
Next J
Next I
End Sub