Sub Test()
Dim Col As Integer, DCol As Integer
' Si tes entêtes de tableau sont usr la ligne 1
' Permet de trouver la dernière colonne de ton tableau
DCol = Cells(1, Columns.Count).End(xlToLeft).Column
' For Col = DCol To 1
' Sinon en faisant simple
For Col = 4 To 1
' Si la cellule de la ligne 1 et ce la colonne Col est vide
If Cells(1, Col) = "" Then
' On supprimer la colonne entière
Cells(1, Col).EntireColumn.Delete
End If
Next Col
End Sub