Cacher colonnes selon critere

Bonjour!

J'ai un classeur sur le lequel s'étendent les colonnes de colonne D à colonne BK, sur la ligne 5, j'ai des quantités a saisir, je voudrais avec votre aide n'afficher que les colonnes dont la ligne 5 est différente de zéro, c'est a dire si j'ai en D5 =0 la colonne D soit masquée mais que cela soit en option, (un bouton sur lequel je clic et les colonne dont la ligne 5 = 0 se cachent)

Merci à tous le monde.

Bonjour,

Macro à rattacher à un bouton, qui alternativement masquera et démaquera les colonnes...

Sub MaskDémask()
    Static m As Boolean
    Dim k%
    Application.ScreenUpdating = False
    With ActiveSheet
        If m Then
            .Columns("D:BK").Hidden = False
        Else
            For k = 4 To 63
                If .Cells(5, k) = 0 Then .Columns(k).Hidden = True
            Next k
        End If
    End With
    m = Not m
End Sub

Cordialement.

Bonjour MFerand !

Rapide et tres efficace, je vous remercie infiniment.

Cordialement