(VBA)Suppression de colonne vide

Bonjour,

Je souhaite qu'excel parcour les colonnes de C4 à V4 et que lorsqu'il tombe sur une cellule vides, il supprime la colonne vide de mon tableau.

J'ai essayé de faire une formule mais impossible de trouver l'erreur.

Voici ma formule :

Dim y As Long

For y = 1 To 30 Step 1
Cells(3, 4).Selection.End(xlToRight).Column
If (IsEmpty(Cells(1, y))) Then Column(Y).Delete
End If
Next y

Merci pour vos réponses.

Okalys