Classement de la date la plus proche à la plus éloignée dans userform

Private Sub UserForm_Activate()
Dim Te(), Ts(), Le&, Ls&, C&, TLgnFlt() As Long
'mettre mon user form en pleine écran
Me.StartUpPosition = 3
Me.Width = Application.Width
Me.Height = Application.Height
Me.Left = 0
Me.Top = 0
Te = Feuil1.[A3].Resize(Feuil1.[A60000].End(xlUp).Row - 2, 10).Value ' Affecte au tableau Te la valeur de la plage _
   commençant à la cellule A3 de la feuille Excel représenté par l'objet Worksheet nommé Feuil1 dans la rubrique _
   Microsoft Excel Objets du projet VBA, pour un nombre de ligne égal au numéro de la dernière cellule non vide au _
   dessus de la A60000 diminué de 2 (en effet 2 lignes sont sautées quand on commence à la 3), et pour 10 colonnes.
ReDim TLgnFlt(1 To UBound(Te))
For Le = 1 To UBound(Te)
   If Not IsEmpty(Te(Le, 9)) Then Ls = Ls + 1: TLgnFlt(Ls) = Le
   Next Le
ReDim Preserve TLgnFlt(1 To Ls)
ReDim Ts(1 To Ls, 1 To 5)
With New TableIndex
   .Réinit TLgnFlt
   While .Actif: .BInfA = Te(.B, 10) < Te(.A, 10): Wend ' Voir plus haut ce que content Te
   Ls = 0
   .Parcourir
   While .Actif: Le = .Suivant: Ls = Ls + 1: ' Voir module de classe TableIndex
      For C = 1 To 5: Ts(Ls, C) = Te(Le, Choose(C, 2, 3, 7, 9, 10))
      Next C: Wend: End With
Me.ListBox1.List = Ts
End Sub