Trier des colonnes par ordre alphabétique

Bonjour à tous !

Je souhaiterais trier les colonnes de ma feuille par ordre alphabétique selon la première ligne de chaque colonne (et non pas trier les lignes d'une même colonne !), soit que :

Marie l Jean l Bruno l Anais

A l T l T l A

après tri donne :

Anais l Bruno l Jean l Marie

A l T l T l A

Je n'ai rien trouvé sur les précédentes discussion du forum.

Pouvez-vous me donner des pistes ou des astuces pour coder cela en VBA ?

Merci beaucoup,

Bonne journée !

Lise

Bonjour LiseDauban et

Voici une macro directement adaptée du code issu de l'enregistreur de macro

Sub Macro1()
Dim Plage As Range
    With Worksheets("Feuil1")
        Set Plage = Range("A1:D2")
        .Sort.SortFields.Clear
        .Sort.SortFields.Add Key:=Range("A1:D1"), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With .Sort
            .SetRange Range("A1:D2")
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlLeftToRight
            .SortMethod = xlPinYin
            .Apply
        End With
    End With
End Sub

Tu peux obtenir le même résultat sous Excel avec Edition / Trier et Filtrer / Tri personnalisé puis Options de la gauche vers la droite puis Trier par Ligne 1 valeurs de A à Z.

A+

J'ai du faire une fausse manip en utilisant la même méthode.

Ca marche TB à présent.

Merci,

Bonne journée.