Tri par VBA qui ne fonctionne pas correctement

Bonsoir

J' ai cru un formulaire qui doit trier des données sur deux feuilles différentes. j'ai mis le même code mais il ne fonctionne correctement que sur une feuille.

Ci joint le fichier

Merci pour les corrections

Bonne soirée

cdt

TA

Bonjour,

Je ne me suis pas penché sur les tableaux, j'ai juste modifié un peut le code de tri donc, testes et dis nous :

Sub TRI()

    Dim Tbl As ListObject

    Set Tbl = ActiveSheet.ListObjects(1)

    With Tbl

        With .Sort.SortFields

            .Clear

            .Add(Tbl.ListColumns(1).Range, xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(191, 191, 191)
            .Add(Tbl.ListColumns(1).Range, xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(51, 102, 255)
            .Add(Tbl.ListColumns(1).Range, xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(0, 128, 0)
            .Add(Tbl.ListColumns(1).Range, xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, 0, 0)
            .Add(Tbl.ListColumns(1).Range, xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, 255, 0)
            .Add Tbl.ListColumns(1).Range, xlSortOnValues, xlAscending, "OFF,SG,SCT,CTI,MAT,GAR,SYN,BUD,SEC", xlSortNormal
            .Add Tbl.ListColumns(1).Range, xlSortOnValues, xlAscending, "CDT,CNE1,CNE2,CNE3,LT.1,LT.2,LT.3,MAJex,MAJex1,MAJex2," & _
                                                                        "MAJex3,MAJ1,MAJ2,MAJ3,MAJ4,B/C1,B/C2,B/C3,B/C4,B/C5,B/C6," & _
                                                                        "BG.1,BG.2,BG.3,BG.4,BG.5,BG.6,BG.7,GPX", xlSortNormal
            .Add Tbl.ListColumns(5).Range, xlSortOnValues, xlAscending, , xlSortNormal
            .Add Tbl.ListColumns(6).Range, xlSortOnValues, xlAscending, , xlSortNormal

        End With

        With .Sort

            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply

        End With

    End With

End Sub