Supprimer des colonne et mettre en forme

Bonjour à tous,
j’aimerais supprimer les colonnes où il n’y a pas de noms sur la 1 ere ligne.
J’ai essayé x macros trouvées sur le net, mais aucune ne marche.
Je joins la feuille où je suis arrêté ainsi q’une copie d’écran qui montre le résultat voulu
Merci pour votre aide
Classeur1.xlsx (47,4 Ko)

Bonjour

Ci-joint ma proposition

Le traitement supprime toutes les colonnes qui n’ont pas de donnée (nom) en ligne 2 ou dont celle-ci est égale à « SALARIES » ou « BENEVOLES » ou « TOTAL »

Cliques sur le bouton « Nettoyage colonne »

Fais des essais et dis moi

Classeur2.xlsm (53,8 Ko)

Bonjour
Teste cette macro

Sub Suppr()
    Dim n%, i%
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    With Worksheets("Feuil3")
        n = .Cells(2, Columns.Count).End(xlToLeft).Column
          For i = n To 6 Step -1
              If .Cells(2, i) = "" Then .Cells(2, i).EntireColumn.Delete Shift:=xlToLeft
          Next i
    End With
    Application.Calculation = xlCalculationAutomatic    
End Sub

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.