Sub HideEmptyCharts()

Dim wksCharts As Worksheet
Dim objCO As ChartObject
    
    ' Set up a variable for the worksheet containing the charts
    Set wksCharts = ThisWorkbook.Sheets("Sheet1")
    
    ' Loop through every embedded chart object on the worksheet
    For Each objCO In wksCharts.ChartObjects
        
        ' Make each one visible
        objCO.Visible = True
        
        ' If the chart is empty make it not visible
        If IsChartEmpty(objCO.Chart) Then objCO.Visible = False
        
    Next objCO

End Sub

Private Function IsChartEmpty(chtAnalyse As Chart) As Boolean

Dim i As Integer
Dim j As Integer
Dim objSeries As Series
    
    ' Loop through all series of data within the chart
    For i = 1 To chtAnalyse.SeriesCollection.Count
        
        Set objSeries = chtAnalyse.SeriesCollection(i)
        
        ' Loop through each value of the series
        For j = 1 To UBound(objSeries.Values)
            
            ' If we have a non-zero value then the chart is not deemed to be empty
            If objSeries.Values(j) <> 0 Then
                ' Set return value and quit function
                IsChartEmpty = False
                Exit Function
            End If
            
        Next j
        
    Next i
    
    IsChartEmpty = True

End Function