XL 2016 modification de code pour trier une list box

Feuil4.Activate
    'déclarer x et z
    Dim x As Date
    Dim z As Date
    
    x = Format(Now(), "  dd / mm / yyyy")
    z = Format(Now(), "  dd / mm / yyyy")
    
    'Tri auto entre 2 dates sur 2 colonnes ici I et J
   ListBox1.ColumnCount = 16   'nbre des colonnes
    'ListBox1.ColumnHeads = True
    Me.ListBox1.ColumnWidths = "100;0;0;0;200;0;0;0;0;350;250;0;0;0;100;100"  'largeur de chaque colonne
    
    Me.ListBox1.Clear  ' Effacer le listbox pour éviter les beugs
    
    For d = 2 To Range("A" & Rows.Count).End(xlUp).Row   ' Colonne A
        If Sheets("Data").Cells(d, 15).Value <= x And Sheets("Data").Cells(d, 16).Value >= z Then 'Permis en cours de validation
            Me.ListBox1.AddItem
            For j = 0 To 9  'affichage des colonnes
                ListBox1.Column(j, ListBox1.ListCount - 1) = Sheets("Data").Cells(d, j + 1).Value
              
            Next j
        End If
    Next d
    Frame1.Caption = Frame1.Caption & " : " & ListBox1.ListCount ' afficher le nbre des permis dans le caption du Frame 1

For j = 0 To 9