Sub UnDernierPoint2()
Dim nbPoints As Variant
With Feuil1.ChartObjects(1).Chart.SeriesCollection(2)
.ApplyDataLabels AutoText:=True, _
LegendKey:=False, _
ShowSeriesName:=False, _
ShowCategoryName:=False, _
ShowValue:=False, _
ShowPercentage:=False, _
ShowBubbleSize:=False
nbPoints = Application.Count(.Values)
.Points(nbPoints).ApplyDataLabels ShowValue:=True
End With
End Sub