masquer colonnes automatiquement

Private Sub ToggleButton1_Click()
    Dim cacher As Boolean
    Dim i, i2 As Integer
    Application.ScreenUpdating = False
    If ToggleButton1.Value = True Then 'bouton enfoncé
        ToggleButton1.Caption = "RV"
        ToggleButton1.BackColor = &HFFFFFF    'blanc
        ToggleButton1.ForeColor = &HFF       'rouge
        For i = 0 To 200
            cacher = True
            If Range("F4").Offset(0, i).Value = "" Then Exit For
            For i2 = 0 To 9
                If Range("F5").Offset(i2, i).Value = "x" Then
                    cacher = False
                    Exit For
                End If
            Next i2
            'cacher si on n'a rencontré aucun "X" dans la colonne
            If cacher = True Then
                Range("F5").Offset(0, i).EntireColumn.Hidden = True
            End If
        Next i
        
      Else 'bouton normal
        ToggleButton1.Caption = "Complet"
        ToggleButton1.BackColor = &H80FFFF     'jaune clair
        ToggleButton1.ForeColor = &HFF0000       'bleu
        'afficher toutes les colonnes
        Columns("F:IV").EntireColumn.Hidden = False
    End If
    Application.ScreenUpdating = False
End Sub