Sub Etiquettes()
Dim F As Worksheet, i As Byte, j&
Set F = Feuil1 'CodeName de la feuille
For i = 1 To 2
With F.ChartObjects(1).Chart.SeriesCollection(i)
.HasDataLabels = False 'RAZ
For j = 1 To .Points.Count
If F.[B1].Offset(j) <> "" Then
.Points(j).HasDataLabel = True
.Points(j).DataLabel.Text = F.[B1].Offset(j)
End If
Next
End With
Next
End Sub