Tri des entêtes de colonne d'un tableau par ordre l'alphabétique

Bonjour,

J'ai un fichier dans le quel j'ai un tableau.
Ce tableau comporte une première colonne avec des noms (qui peut s'allonger), puis des colonnes avec des noms de documents en entêtes. Le nombre de documents pouvant augmenter, à chaque fois qu'un document sera ajouter via un formulaire il s'ajoutera au tableau.

Je cherche un code VBA me permettant de trier les colonnes à partir de la colonne "B" suivant le nom de leur en-tête tout en conservant l'intégralité des données associées dans la colonne, c'est à dire que toute la colonne doit bouger pas seulement l'en-tête.

J'ai déjà essayer un code mais cela renvoi à un sujet que j'ai déjà ouvert où lors de la réouverture du fichier après tri j'avais un message d'erreur de corruption de fichier. Je repars donc de 0 pour ne pas influencer, et savoir si quelqu'un connait un code qui permet de faire ca sans détériorer le fichier.

Je joins un fichier test qui résume ce que je viens de dire.

Merci

Bonjour

Su un tableau "classique" il suffit de trier de gauche à droite sur la ligne des titres mais cela n'est pas possible en tableau structuré.

Cela oblige à gérer une boucle, un dictionnaire ou autre technique de tri et le déplacement de colonnes multiples qui effectivement risque de finir par poser problème, surtout avec un tableau structuré...

Pour ma part je ne toucherai pas au tableau et listerai dans l'ordre voulu via une requête PowerQuery...

bonjour à tous,

une proposition

Sub trientetes()
    ligneentetes = 2
    With Sheets("feuil1")
        dc = .Cells(ligneentetes, Columns.Count).End(xlToLeft).Column
        For i = 2 To dc - 1
            c = i
            For j = i + 1 To dc
                If .Cells(ligneentetes, c) > .Cells(ligneentetes, j) Then c = j
            Next j
            If c <> i Then
                .Columns(c).Cut
                .Columns(i).Insert
            End If
        Next i
    End With
End Sub