Trier par ordre croissant des numeros

Sub Trie3()
Dim i As Long, e As Long, y As Integer
Dim T
    Sheets("Feuil1").Select
    'Sépare d'abord tout..
    e = Range("A1").SpecialCells(xlCellTypeLastCell).Row
    For i = 1 To e
        T = Split(Cells(i, 1), "-", -1)
        For y = 0 To UBound(T)
            Cells(i, y + 2) = T(y)
        Next y
    Next i
    'trie la colonne des date.. suite... Suite
    Range("A1:E" & e).Select
    Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Key2:=Range("D1") _
        , Order2:=xlAscending, Key3:=Range("E1"), Order3:=xlAscending, Header:= _
        xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

'supposons les données dans colonne A
'et les résultats intermédiaire dans les colonnes suivantes
''supposons les données dans colonne A
'F-1998-124-045 ou EU-2005-256-125 ou F-1995-156

Sub Trie3()
Dim i As Long, e As Long, y As Integer
Dim T
    Sheets("Feuil1").Select
    'Sépare d'abord tout..
    e = Range("A1").SpecialCells(xlCellTypeLastCell).Row
    For i = 1 To e
        T = Split(Cells(i, 1), "-", -1)
        For y = 0 To UBound(T)
            Cells(i, y + 250) = T(y)
        Next y
    Next i
    
    'trie la colonne des date.. suite... Suite
    Range("A1:IS" & e).Select
    Selection.Sort Key1:=Range("IQ1"), Order1:=xlAscending, Key2:=Range("IR1") _
        , Order2:=xlAscending, Key3:=Range("IS1"), Order3:=xlAscending, Header:= _
        xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    
    'Efface les données intermédiaires
    Range("IP1:IS" & e).Select
    Selection.ClearContents
    Range("A1").Select

End Sub

Sub Trie3()
Dim i As Long, e As Long, y As Integer
Dim T
    Sheets("Feuil1").Select
    'Sépare d'abord tout..
'Trouve la dernière cellule de la colonne A1, si Autre cellule changer par exemple Par E1
    e = Range("A1").SpecialCells(xlCellTypeLastCell).Row
'Commence à la ligne 1 jusque la dernière cellule si ligne 13 remplacer 1 par 13
'(Cells(i, 1)  >> i c'est la ligne et 1 c'est la colonne, si colonne E remplacer 1 par 5
    For i = 1 To e
'Split tu sélectionne le mot et tu tape F1, ce serra plus explicite que ce que je pourrais te dire en quelques lignes.
'Mais en gros, T devient un tableau avec chaque donnée séparée, T(0)=F T(1).. La suite
        T = Split(Cells(i, 1), "-", -1)
        For y = 0 To UBound(T)
            Cells(i, y + 250) = T(y)
        Next y
    Next i
    
    'trie la colonne des data.. suite... Suite
    Range("A1:IS" & e).Select  'ICI rien changer, c'est bon

'Trie avec les critères de la colonne  IQ1, ensuite IR1, ensuite IS1 
'si tu n'a plus de lettre F ou EU devant if faut tout reculer d'une colonne, soit IP1, IQ1, IR1
    Selection.Sort Key1:=Range("IQ1"), Order1:=xlAscending, Key2:=Range("IR1") _
        , Order2:=xlAscending, Key3:=Range("IS1"), Order3:=xlAscending, Header:= _
        xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    
    'Efface les données intermédiaires
    Range("IP1:IS" & e).Select
    Selection.ClearContents
    Range("A1").Select

End Sub