Macro pour Hauteur de ligne = 0 si résultat de fonction = " " ?

Sub Macro1()
Dim EMG As Worksheet
Dim TC As Variant

Application.ScreenUpdating = False
Set EMG = Sheets("EMG")
TC = EMG.Range("A1:D114")
For I = 1 To UBound(TC, 1)
    T = ""
    For J = 1 To UBound(TC, 2)
        T = T & TC(I, J)
    Next J
    If T = "    " Or T = "   " Then EMG.Rows(I).Hidden = True Else EMG.Rows(I).Hidden = False
Next I
Application.ScreenUpdating = True
End Sub

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)

Set O = Sheets("Feuil2") 'définit l'onglet O (à adapter)
TC = O.Range("A1:C114") 'définit le tableau de cellules TC
For I = 1 To UBound(TC, 1) 'boucle sur toutes les lignes I du tableau de cellules TC
    'si la somme des 3 valeurs de la ligne I est nulle, masque la ligne, sinon affiche la ligne
    If Application.WorksheetFunction.Sum(Application.Index(TC, I)) = 0 Then O.Rows(I).Hidden = True Else O.Rows(I).Hidden = False
Next I 'prochaine ligne de la boucle
End Sub