XL 2013 Trier colonne

Sub tri()
Dim t, i&
   Application.ScreenUpdating = False
   With Sheets("Feuil1"): t = .Range("b3:b" & Cells(Rows.Count, "b").End(xlUp).Row): End With
   With Sheets("aux")
      .Columns("a:b").Clear
      .Range("a1").Resize(UBound(t), 1) = t
      For i = 1 To UBound(t): t(i, 1) = Mid(t(i, 1), InStr(t(i, 1), ">") + 1): Next i
      .Range("b1").Resize(UBound(t), 1) = t
      .Range("a1:b" & UBound(t)).Sort key1:=.Range("b1"), order1:=xlAscending, Header:=xlNo
      .Range("a1:a" & UBound(t)).Copy Sheets("Feuil1").Range("b3")
   End With
End Sub