Masquer les colonnes non remplie

Sub MasquerColonneSansValeur() 
 Dim Col As Integer, Flg As Boolean
  Application.ScreenUpdating = False
  ' Pour les 32 colonnes
  For Col = 1 To 32
    ' Verifier si la colonne contient une valeur > 0
    Flg = Application.CountIf(Range(Cells(4, 10 + Col), Cells(50, 10 + Col)), ">0") > 0
    ' Masquer ou afficher la colonen en fonction
    Cells(1, 10 + Col).EntireColumn.Hidden = Not Flg
    Flg = Application.CountIf(Range(Cells(4, 44 + Col), Cells(50, 44 + Col)), ">0") > 0
    Cells(1, 44 + Col).EntireColumn.Hidden = Not Flg
    Flg = Application.CountIf(Range(Cells(4, 77 + Col), Cells(50, 77 + Col)), ">0") > 0
    Cells(1, 77 + Col).EntireColumn.Hidden = Not Flg
  Next Col
  Application.ScreenUpdating = True
End Sub

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Masquer les colonnes non remplie" Then
    CommandButton1.Caption = "Afficher les colonnes non remplie"
    
 Dim Col As Integer, Flg As Boolean
  Application.ScreenUpdating = False
  ' Pour les 32 colonnes
 For Col = 1 To 32
    ' Verifier si la colonne contient une valeur > 0
   Flg = Application.CountIf(Range(Cells(4, 10 + Col), Cells(50, 10 + Col)), ">0") > 0
    ' Masquer ou afficher la colonen en fonction
   Cells(1, 10 + Col).EntireColumn.Hidden = Not Flg
    Flg = Application.CountIf(Range(Cells(4, 44 + Col), Cells(50, 44 + Col)), ">0") > 0
    Cells(1, 44 + Col).EntireColumn.Hidden = Not Flg
    Flg = Application.CountIf(Range(Cells(4, 77 + Col), Cells(50, 77 + Col)), ">0") > 0
    Cells(1, 77 + Col).EntireColumn.Hidden = Not Flg
  Next Col
  Application.ScreenUpdating = True
Else
    CommandButton1.Caption = "Masquer les colonnes non remplie"
    Cells.EntireColumn.Hidden = False
End If
End Sub