Sub DeleteEmptyCol()
Application.ScreenUpdating = False 'on désactéive le refresh pour éviter l'effet sapin de noel
Dim Ws As Worksheet 'déclaration
For Each Ws In ActiveWorkbook.Sheets 'pour chaque feuille du classeur actif
With Ws 'avec la feuille
For j = .UsedRange.Columns.Count To 1 Step -1 'pour chaque colonne de la zone utilisée (en partant de la dernière colonne pour remonter vers la première (A)
'Columns(j).Select 'pour débug
If WorksheetFunction.CountA(.Columns(j)) = 0 Then .Columns(j).Delete 'si la colonne est vide, on la supprime
Next j
End With
Next Ws
Application.ScreenUpdating = True 'on réactive le refresh
End Sub