Microsoft 365 Tri Nombre avec Tirets en VBA

=GAUCHE([@[Code Article]];4)

=SIERREUR(DROITE("000000" & STXT([@[Code Article]];CHERCHE("-";[@[Code Article]])+1;999);6);"")

Sub TriSpecial()
'
    Application.ScreenUpdating = False

    With ActiveWorkbook.Worksheets("Référencement").ListObjects("TbReferencement").Sort

        .SortFields.Clear
        .SortFields.Add Key:=Range("TbReferencement[[#All],[Colonne2]]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply

        .SortFields.Clear
        .SortFields.Add Key:=Range("TbReferencement[[#All],[Colonne1]]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply

        .SortFields.Clear
    End With

    Application.ScreenUpdating = True

End Sub

=GAUCHE([@[Code Article]];5) & REPT(0;3-NBCAR(STXT([@[Code Article]];6;9))) & STXT([@[Code Article]];6;9)

=GAUCHE([@[Code Article]];CHERCHE("-";[@[Code Article]]))&TEXTE(STXT([@[Code Article]];CHERCHE("-";[@[Code Article]])+1;5);"000")

=GAUCHE([@[Code Article]];5)&TEXTE(STXT([@[Code Article]];6;5);"000")