For i = 20 To 20 + NombreDeClasse - 1
Set SerieDonnnees = GraphiqueGranulometrie.FullSeriesCollection(i)
With SerieDonnnees.Points(2)
.ApplyDataLabels Type:=xlDataLabelsShowValue, LegendKey:=False, AutoText:=True, HasLeaderLines:=False
.DataLabel.Text = AideGranulométrie.Range("AideGranulométrie.PourcentageGraviers" & i - 20).Text
.DataLabel.Position = xlLabelPositionLeft
.DataLabel.Top = .DataLabel.Top + 70
'.DataLabel.Left = .DataLabel.Left - 50
With .DataLabel.Font
.Color = SerieDonnnees.Border.Color
.Size = 15
.Name = "Segoe UI Semibold"
.Bold = True
End With
End With
Next i