faire une macro sans tenir compte des colonnes masquées

Sub vuehebdomadaire()
Application.ScreenUpdating = False
'
' vuehebdomadaire Macro
' affiche le planning en vue hebdomaire
'
' Touche de raccourci du clavier: Ctrl+h
Dim ref As Range
Set ref = ActiveCell

Set zoneToFit = Columns("E:IZ")
'zoneToFit.Select
    For Each col In zoneToFit
        'col.Select
        If col.Hidden = False Then
            col.ColumnWidth = 36
        End If
    Next col
ref.Select
ActiveWindow.ScrollColumn = Selection.Column
Application.ScreenUpdating = True

End Sub