Sub Efface()
Dim i As Integer
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
For i = 1 To .Points.Count
If .Points(i).HasDataLabel Then
If IsEmpty(Sheets("Feuil4").[B4].Offset(, i)) Then .Points(i).DataLabel.Delete
End If
Next
End With
End Sub