Macro pr suppr colonnes vides...

[Christian]

Bonjour à tout le forum,

Pourriez-vous m'aider à l'écriture d'une macro pour effacer des colonnes vides.
Je souhaiterais pouvoir, dans un premier temps effacer les libellés de la ligne 1, afin d'effacer,ensuite, toutes les colonnes vides.

expl:

A1 B1 C1 D1 E1 F1 ect
date service plats qtés plats qtés
22/01/04 midi tomates 120
22/01/04 midi orange 98
22/01/04 midi oeuf 123 ect

action 1 ; effacer la ligne 1 pour pouvoir en suite supprimer les colonnes vides (dans l'expl) col E / F ect. Ou effacer les colonnes vides à partir de la ligne 2.

Je vous remercie par avance
Bonne journée
Bien amicalement
Christian.

 

[Roland]

salut christian

Sub nettoie()
Dim i As Integer
For i = Range("A1").End(xlToRight).Column To 1 Step -1
If Cells(1, i).End(xlDown).Row = 65536 Then Columns(i).Delete
Next i
End Sub
bye