Supprimer colonnes si cellule = 0

Bonjour,

Je suis confronté à un problème avec ma macros.

J'ai un tableau (voir fichier joint) avec un nombre de colonnes qui varient selon les jours.

J'aimerai savoir comme je peux supprimer mes colonnes quand mes 4 lignes sont = 0 en même temps et seulement les 4 en même temps, et que les colonnes qui suivent du coup, se décale vers la gauche.

Merci de votre aide

Bonjour,

Une proposition.

ALT F8 puis exécuter DeleteColumns.

Cdlt.

Bonjour,

Merci beaucoup c'est exactement ce que je cherchais.

Par contre j'ai une question, je ne comprend pas trop comment tu fais pour que ce soit les 4, qu'est ce qu'il faut changer si par exemple je veux que si il y en a 3 = 0, ça supprime aussi?

Re,

C'est plus clair avec ces commentaires ?

Public Sub DeleteColumns()
'Déclaration des constantes
Const COL As Byte = 2   '1ère. colonne de données
Const ROW As Byte = 4   '1ère ligne de données
Const LROW As Byte = 4  'Nombre de lignes de la plage
'Déclaration des varaibles
Dim lastColumn As Long, lCol As Long
Dim rng As Range

    Application.ScreenUpdating = False

    With ActiveSheet
        lastColumn = .Cells(ROW, .Columns.Count).End(xlToLeft).Column
        For lCol = lastColumn To COL + 1 Step -1
            'set rng=Cells(4,lCol).resize(4)
            Set rng = Cells(ROW, lCol).Resize(LROW)
            If Application.Sum(rng) = 0 Then rng.Delete
        Next lCol
    End With

End Sub