avoir 2 Formats étiquettes de données

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