Supprimer les colonnes vides d'un tableau

Bonjour

Je vous présente mon problème.

Sur un fichier Excel, j'importe un tableau d'une autre feuille.

En fonction de l'importation les tableaux comportent un nombre de colonne variable.

Je veux supprimer toutes les colonnes qui ne contiennent pas d'information en dessous du libellé.

Dans mon exemple j'ai un tableau comportant des informations diverses.

En cliquant sur le bouton je souhaite donc que toutes les colonnes (en dessous du libellé) sans information soient supprimées.

La macro associé effectue partiellement le travaille demandé mais il faut que je clique plusieurs fois....

Pourriez-vous m'aider?

Cordialement

Bonjour,

Le principe, lorsqu'on veut supprimer des lignes ou des colonnes, est de partir de la dernière vers la première...

Essaie avec ce code :

Private Sub CommandButton1_Click()
Dim DerCol As Long, Col As Long
DerCol = Cells(3, Columns.Count).End(xlToLeft).Column
For Col = DerCol To 1 Step -1
    If Cells(3, Col) <> "" Then
        If Cells(3, Col).End(xlDown).Row >= 65536 Then Columns(Col).Delete
    End If
Next Col
End Sub

Bon courage

Je te remercie pour ton aide. Ce code fonctionne parfaitement

J'avais du mal à trouver la synthaxe et la logique de codage.

Encore merci