pas sûr d'avoir très bien compris, mais essaie ça, normalement ça devrait aller :
Sub SupprimeLignesVides()
Dim Plage As Range, Colonne As Long, Cel As Range
With ActiveSheet
' je prends la plage utilisée comme référence
'il faudrait au besoin ajuster cette plage au tableau
Set Plage = .UsedRange
End With
With Plage
For Colonne = .Columns.Count To 1 Step -1
Set Cel = .Cells(1, Colonne).EntireColumn
If Cel.Cells(65536, 1).End(xlUp).Row = _
.Cells(1, Colonne).Row Then Cel.Delete
Next Colonne
End With
End Sub