Supprimer colonnes si en-têtes vides

Bonjour,

Je cherche a créer une macro qui supprime les colonnes d'un tableau si les en-têtes sont vides.

J'ai voulu en créer une mais elle ne fonctionne pas :

Sub SupCol()
EnTete = Range("A3:ALU3")
For Each cell In EnTete
If cell.Value = "" Then cell.EntireColumn.Delete
Next
End Sub

Pouvez-vous m'aider à la faire fonctionner ?

Je vous en remercie par avance.

Bonjour,

Essaie ainsi :

Sub Suppr_Col_vides()
Dim Plg As Range
Set Plg = Range("A3:ALU3")
If Application.CountA(Plg) <> Plg.Columns.Count Then
    Plg.SpecialCells(xlCellTypeBlanks).Delete
End If
End Sub

Bonjour

essayez comme ceci

Sub SupCol()
Dim Dercol As Integer, i As Integer
Dercol = Cells(3, Columns.Count).End(xlToLeft).Column
For i = Dercol To 1 Step -1
    If Cells(3, i).Value = "" Then Cells(3, i).EntireColumn.Delete
Next i
End Sub

Cordialement

Edit : oups cousinhb29, on a dû poster à la seconde prêt !. Ta solution devrait être plus rapide je pense

@Dan,

pas sûr, pour la rapidité...

Mais je voulais changer de méthode

Merci cousinhb29 et dan pour votre aide. Ca fonctionne parfaitement !