Sub test()
Dim plage As Range, col As Range
Application.ScreenUpdating = False
Set plage = Intersect(UsedRange, Columns("e:an"))
plage.EntireColumn.Hidden = False
For Each col In plage.Columns
Columns(col.Column).EntireColumn.Hidden = Application.WorksheetFunction.CountIf(col, "") = col.Rows.Count
Next col
End Sub