Ignorer les séries vides ou nulles dans un diagramme

[Elo7]

Bonjour à tous,

J'ai plusieurs diagrammes dans une feuille Excel.
Lors de la selection de données de ces diagrammes j'ai sélectionner des cellules vides afin de pouvoir y ajouter des données plus tard et chaque diagrammes pourraient contenir 226 séries.

J'ai réalisé le code suivant pour mettre en forme chaque série.

Sub Etiquettes_Serie()

Application.ScreenUpdating = False
Dim reihe As Integer 'pour serie
 Dim indD As Integer ' indice du nom du diagramme

reihe = 2
indD = 1
'
For indD = 1 To ActiveSheet.ChartObjects.Count
ActiveSheet.ChartObjects("Diagramm " & indD).Activate
'ActiveChart.PlotArea.Select
ActiveChart.ApplyDataLabels

'ActiveChart.SeriesCollection(3).DataLabels.Select
'    Selection.ShowSeriesName = True
'    Selection.ShowValue = False

ActiveChart.SeriesCollection(1).DataLabels.Select
    Selection.ShowSeriesName = False
    Selection.ShowValue = False
    
    For reihe = 2 To 226
'
    ActiveChart.SeriesCollection(reihe).DataLabels.Select
    If ActiveChart.SeriesCollection(reihe).Value = 0 Then
        Selection.ShowSeriesName = False
    Else: Selection.ShowSeriesName = True
    End If
    
    Selection.ShowValue = False
'    Selection.Separator = " "

    With Selection.Format.TextFrame2.TextRange.Font.Fill
            .Visible = msoTrue
            .ForeColor.ObjectThemeColor = msoThemeColorBackground1
            .ForeColor.TintAndShade = 0
            .ForeColor.Brightness = -0.150000006
            .Transparency = 0
            .Solid
            .Bold = msoTrue ' Selection.Format.TextFrame2.TextRange.Font.Bold
    End With
        
    Next reihe
Next indD
End Sub

Le problème est que lors de l'exécution, cela prend énormement de temps (de plus la fenêtre devient blanche et redevient normale après l'exécution)

J'aimerais savoir comment je peux faire pour ignorer ces séries vides.

Merci d'avance pour vos réponses.
Cordialement
Elo7