Supp Colonnes

Bonjour,

Besoin de votre aide,

Pourriez-vous svp me donner une macro qui supprimerait les colonnes

dont le total est à 0.

Merci de votre retour.

Bonjour

Option Explicit
Sub suppcol()
Dim col%
    For col = Cells(3, Columns.Count).End(xlToLeft).Column To 2 Step -1
        If Cells(Rows.Count, col).End(xlUp) = 0 Then Columns(col).Delete Shift:=xlToLeft
    Next
End Sub

Bonjour Steelson,

Merci bcp pour ton retour rapide,

Macro super efficace.

Bonne journée et we à venir

Merci pour ce retour