Supprimer uniquement les colonnes vides dans Excel Résolu/Fermé

Question

Bonjour, j'ai un tableau Excel qui compte plus de 200 lignes et pas loin de 400 colonnes. Certaines colonnes sont complètement vides, d'autres ne contiennent que des -1, et je veux supprimer toutes ces colonnes, mais uniquement les colonnes entièrement vides et celles avec des -1 ! J'ai trouvé des astuces qui consistent à supprimer les cellules vides, mais cela décale toutes mes colonnes, car par endroit j'ai des cases vides.
J'ai essayé pas mal de choses sans succès. Pouvez-vous m'aider ? Merci
Ah oui, j'ai Office 2021.

eriiic · Answer

Bonjour,
en supposant que tu as une ligne de titre en 1, à mettre dans le module de la feuille :
Sub suppColVide()
    Dim col As Long
    For col = Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1
        If Application.CountA(Columns(col)) = 1 Then Columns(col).Delete
    Next col
End Sub 
eric