Tout est possible, mais il va falloir parametrer, en effet tu dois selectionner la serie qui t'intéresse, boucler sur les points de ta serie, puis traiter le label puisque c'est un format texte, et pour comparer en numérique il faut que ce soit un nombre. Par la suite avec un if tu le supprimes.
Ci joint un exemple qui marche pour moi.
Selectionne ton graphique d'abord.
Sub toto()
For Each Pointe In ActiveChart.SeriesCollection(1).Points
textee = Pointe.DataLabel.Text
numero = Left(textee, Len(textee) - 1)
numero = CDbl(numero) / 100
If numero < 0.01 Then
Pointe.DataLabel.Delete
End If
Next Pointe
End Sub