Supprimer des colonnes vides automatiquement

Bonjour.

Dans un grand tableau je désire supprimer les colonnes qui sont vides, mais surtout pas les lignes vides.

Voir exemple ci joint

Si cela peut se faire automatiquement via une macro cela serait mieux.

Merci d'avance pour votre aide

Christophe

Bonjour,

Une macro qui fonctionne si tu fais clic sur le bouton1

cdt

Salut Clegal, Julien,

voici une procédure qui vérifiera à chaque changement si la colonne est vide et l'éliminera si tel est le cas!.

Private Sub Worksheet_Change(ByVal Target As Range)
'
Application.EnableEvents = False
'
iRow = Cells(Rows.Count, Target.Column).End(xlUp).Row
If iRow = 1 And Cells(1, Target.Column) = "" Then Columns(Target.Column).Delete shift:=xlToLeft
'
Application.EnableEvents = True
'
End Sub

A+

Merci pour votre aide à tous les 2