Supprimer colonnes vides variables

Bonjour,

Je sais supprimer des colonnes avec ce type de code,

Exemple : Range("A:A,D:E,G:H,J:O,Q:W,Y:Y,AA:AA").Select

Selection.Delete Shift:=xlToLeft

Cependant, j'ai un fichier où je dois supprimer les colonnes qui sont vides mais qui varient d'une fois sur l'autre.

Je ne trouve pas de code qui détecte les colonnes vides dans un fichier pour les supprimer ensuite.

Merci pour votre aide.

Bonjour,

essaie ceci

P.

Sub DetruireColVides()
On Error Resume Next
dernierecol = ActiveSheet.UsedRange.Columns.Count
Application.ScreenUpdating = False
For r = dernierecol To 1 Step -1
  If Application.CountA(Columns(r)) = 0 Then Columns(r).Delete
Next r
End Sub

Et bé ça fonctionne superbement bien !

Merci beaucoup pour ta réponse.