Comment savoir si au moins une colonne est masqué sur ma feuille ?

Sub Col()
Dim i&, Flag As Boolean
For i = 1 To Application.Columns.Count
    If Sheets("Toto").Columns(i).Hidden = True Then
        Flag = True
        Exit For
    End If
Next i
If Flag Then
    MsgBox "Au moins une colonne est masquée ", 64, "Traitement avec"
Else
    MsgBox "Aucune colonne n'est masquée", 64, "Traitement sans"
End If
End Sub

If Cells.Columns.Count <> ActiveSheet.Rows("1:1").SpecialCells(xlCellTypeVisible).Count Or _
 Cells.Rows.Count <> ActiveSheet.Columns("A:A").SpecialCells(xlCellTypeVisible).Count Then MsgBox "Cache cache"

Option Explicit
Sub Colonne_masquée_totaliser()
    Dim Compteur As Integer, i As Integer
    Application.ScreenUpdating = False
    Compteur = 0
    For i = 1 To Columns.Count
        If Columns(i).Hidden = True Then
            Compteur = Compteur + 1
        End If
    Next i
    MsgBox "Total colonnes : " & Columns.Count
    MsgBox "Total colonnes visibles : " & Columns.Count - Compteur    ' & " colonnes visibles"
    MsgBox "Total colonne(s) masquée(s) : " & Compteur
End Sub

MsgBox Columns.Count - Rows(1).SpecialCells(12).Count & " colonne(s) masquée(s)"

Sub VoyonsToutIciEtMaintenant()
Cells.Columns.Hidden = False
Cells.Rows.Hidden = False
End Sub