Tri ListBox entre deux dtpicker

Bonjour à tous,

Petit nouveau sur le forum et débutant + en VBA, je rencontre un problème sur une de mes macros...

Voilà je cherche à trier une listbox remplie comme suit :

Dim NNI As String
Dim Cel, Cel1, Cel2 As Range 'utile pour la suite du code
  Dim x1 As Integer

   Set f = Sheets("bddFLM")
   Set Rng = f.Range("A2:G" & f.[A65000].End(xlUp).Row)
   TblTmp = Rng.Value
   Ncol = Rng.Columns.Count
   For i = LBound(TblTmp) To UBound(TblTmp)
     ReDim Preserve Choix(1 To i)
     For k = LBound(TblTmp) To UBound(TblTmp, 2)
       Choix(i) = Choix(i) & TblTmp(i, k) & "|"
     Next k
   Next i
Me.ListBox1.List = Rng.Value

à l'aide du code que j'ai trouvé sur internet :

Application.ScreenUpdating = False
    Application.DisplayStatusBar = False
          Datedebut = DTPicker3.Value
          Datefin = DTPicker4.Value
          ' Dans le cas où le choix est effectué sur le DTPicker1
         If Datefin < Datedebut Then
               Select Case MsgBox("La date de fin ne peut être inférieure à la date de début", vbOKOnly + vbCritical, "Saisie date incorrect")
                Case vbOKOnly
                Exit Sub
          End Select
End If

ListBox1.Clear
    Dim X As Range
    Sheets("bddFLM").Activate
        With ListBox1

      'Mes dates sont dans la colonne D de la feuille "bddFLM"
       For Each X In Sheets("bddFLM").Range("D2:D" & Sheets("bddFLM").Range("D65536").End(xlUp).Row)

                If X.Value >= DTPicker3.Value And X.Value <= DTPicker4.Value Then

                    .AddItem X(1, 2)
                    .List(.ListCount - 1, 1) = X(1, 1)
                    .List(.ListCount - 1, 2) = X(1, 2)
                    .List(.ListCount - 1, 3) = X(1, 3)
                    .List(.ListCount - 1, 4) = X(1, 4)
                    .List(.ListCount - 1, 5) = X(1, 5)

              End If
        Next X
        End With
        Application.DisplayStatusBar = True
        Application.ScreenUpdating = True

Je comprends le début du code mais pas la suite à partir de Additem X(1,2). Cette macro est reliée à un bouton au dessus de la listbox et lorsque je clique sur celui-ci, le tri ne s'effectue pas ou mal et la listbox est completement chamboulée. Par ailleurs, ma listbox est utilisée pour remplir un userform (consultation) en fonction de la ligne choisie et j'aimerai conserver cette fonctionnalité lorsque le tri par les dtpickers est effectué. (tout fonctionne en dehors de ce tri par date)

Je fais appel à un âme charitable pour obtenir de l'aide sur ce sujet ainsi qu'une explication sur le pourquoi du comment que le code trouvé sur internet ne fonctionne pas dans mon cas (si c'est possible)

Merci à vous

Bonne journée

PS : je ne peux pas joindre le fichier hors mp