Supprimer colonne vide

Bonjour ,

J'ai une macro pour supprimer les lignes vide et je voudrais faire la même chose pour les colonne .

Merci

Bonjour Abdernino, bonjour le forum,

Pour supprimer les lignes tu utilises la colonne 1 comme référence. Si la cellule en colonne 1 de la ligne est vide tu supprimes la ligne entière.

Quelle serait la ligne de référence pour supprimer la colonne ? La ligne 10 ?

Ça donnerait :

Sub suppCol()
Dim I As Integer
Dim DC As Integer
Dim O As Worksheet

Set O = Worksheets("CAAR")
DC = O.Cells(9, Application.Columns.Count).End(xlToLeft).Column
For I = DC To 1 Step -1
    If O.Cells(10, I) = "" Then O.Columns(I).Delete
Next I
End Sub

Bonjour

Merci beaucoup