Microsoft 365 Trier les colonnes d'un tableau de A à Z en VBA

let
    Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
    #"Supprimer le tableau croisé dynamique des autres colonnes" = Table.UnpivotOtherColumns(Source, {"Cle", "Total EXO", "Total Tax", "Total Tva", "Diff"}, "Attribut", "Valeur"),
    #"Type modifié" = Table.TransformColumnTypes(#"Supprimer le tableau croisé dynamique des autres colonnes",{{"Attribut", Int64.Type}}),
    #"Lignes triées" = Table.Sort(#"Type modifié",{{"Attribut", Order.Ascending}}),
    PStep = Table.Pivot(Table.TransformColumnTypes(#"Lignes triées", {{"Attribut", type text}}, "fr-FR"), List.Distinct(Table.TransformColumnTypes(#"Lignes triées", {{"Attribut", type text}}, "fr-FR")[Attribut]), "Attribut", "Valeur"),
    #"Colonnes permutées" = Table.ReorderColumns(PStep,List.Combine({{"Cle"},List.LastN(Table.ColumnNames(PStep), Table.ColumnCount(PStep)-5),List.LastN(Table.ColumnNames(Source),4)}))
in
    #"Colonnes permutées"

Sub Tri_Colonnes()
Dim cc%, i%, j%
Application.ScreenUpdating = False
With [A1].CurrentRegion
    cc = .Columns.Count
    For i = 1 To cc - 1
        If IsNumeric(.Cells(1, i)) Then
            For j = i + 1 To cc
                If IsNumeric(.Cells(1, j)) Then _
                    If Val(.Cells(1, j)) < Val(.Cells(1, i)) Then .Columns(j).Cut: .Columns(i).Insert xlToRight
            Next j
        End If
    Next i
End With
End Sub