Masquer des colonnes vides

Bonjour,

J'utilise la formule suivantes pour masquer des lignes ayant "0":

Sub SUPRLIGNE()
Dim l As Long
For l = Cells(196, 12).Row To 1 Step -1
If Cells(l, 1).Value = "0" Then Cells(l, 1).EntireRow.Hidden = True
Next l
End Sub

Ca marche très bien, cependant je voudrai faire la même chose pour les colonnes A à H. Si elle sont vide, qu'elles soient masquées.
j'ai essayé de modifier la précédente :
Sheets(4).Select
Dim l As Long
For l = Cells(20, 1).Columns To 1 Step -1
If Cells(l, 1).Value = "" Then Cells(l, 1).EntireColumn.Hidden = True
Next l

Mais ça ne marche pas, ça me masque qu'une colonne, c'est sûrement une question d'ordre avec "Cells" mais je ne sais pas...
Merci d'avance