masquer/afficher des colonnes selon valeur dans cellule ligne 2

Sub testMasqueAfficheColonnes()
    Application.ScreenUpdating = False
    Dim i As Integer
    ActiveSheet.Shapes.Range("Button 1").Select
    If Selection.Characters.Text = "Masquer" Then
        For i = 6 To 35
            If Cells(2, i) = 0 Then
                Columns(i).Hidden = True
            Else: Columns(i).Hidden = False
            End If
        Next i
        ActiveSheet.Shapes.Range("Button 1").Select
        Selection.Characters.Text = "Afficher"
    Else
        Range("A:AI").EntireColumn.Hidden = False
        ActiveSheet.Shapes.Range("Button 1").Select
        Selection.Characters.Text = "Masquer"
    End If
    Range("E1").Select
    Application.ScreenUpdating = True
End Sub

Sub testMasqueAfficheColonnes()
Dim i As Integer, MasqAffich As Boolean
Application.ScreenUpdating = False
    MasqAffich = False
    For i = 6 To 35
        If Columns(i).Hidden Then
            MasqAffich = True
            Exit For
        End If
    Next i
    If MasqAffich Then
        Columns("F:AI").Hidden = False
    Else
    For i = 6 To 35
        If Cells(2, i) = 0 Then
            Columns(i).Hidden = True
        End If
    Next i
    End If
Application.ScreenUpdating = True
End Sub