Sub BoucleLabels()
Dim s As Series, d As DataLabel, t() As String
Set s = Feuil2.ChartObjects(1).Chart.SeriesCollection(1)
If s.HasDataLabels Then
With s.DataLabels
If .ShowSeriesName And .ShowPercentage And .Separator = vbLf Then
For Each d In s.DataLabels
t = Split(d.Characters.Text, vbLf)
With d.Characters(1, Len(t(0))).Font
.FontStyle = "Gras"
.Size = 15
.ColorIndex = 3
End With
With d.Characters(Len(t(0)) + 2, Len(t(1))).Font
.FontStyle = "Normal"
.Size = 10
.ColorIndex = 5
End With
Next d
End If
End With
End If
End Sub