Tri dans une Listbox

Path = "P:\Rdraq\ESSAI\CARACRAQ\TENNIS\"

With Conn
    .Provider = "Microsoft.JET.OLEDB.4.0"
    .Open Path & BaseMDB
End With

If Err.Number <> 0 Then
    MsgBox ("La base de données n'a pas été trouvée à l'adresse suivante : " & Path)
    Exit Sub
End If

With rsT
    .ActiveConnection = Conn
    .Open Table1, LockType:=adLockOptimistic
End With

Sub Tri_Croissant_Champ_BaseAccess()
    'effectuer un tri croissant dans la colonne "Nom" de la table "LesPoints"
    Dim Cnn As New ADODB.Connection
    Dim Cat As New ADOX.Catalog
    Dim indexTri As New ADOX.Index
    Dim Rst As New ADODB.Recordset
    Dim Fichier As String
        
    On Error GoTo Fin
    
    Fichier = "C:\MaBase_V03.mdb"
    Cnn.Open "Provider='Microsoft.Jet.OLEDB.4.0';" & _
    "Data Source='" & Fichier & "';"
    
    Set Cat.ActiveConnection = Cnn
    
    With indexTri
    .Columns.Append "Nom"
    .Columns("Nom").SortOrder = adSortAscending 'tri croissant
    .Name = "Ascending"
    '.Columns("Nom").SortOrder = adSortDescending 'pour les tris décroissants
    '.Name = "Descending"
    .IndexNulls = adIndexNullsAllow
    End With
    
    'ajout d'un index pour la table "LesPoints"
    'attention : renvoie une erreur si un index existe déja
    Cat.Tables("LesPoints").Indexes.Append indexTri
        
    Rst.Index = indexTri.Name
    Rst.Open "LesPoints", Cnn, adOpenKeyset, adLockOptimistic, adCmdTableDirect
            
    'import dansd la feuille Excel des données triées
    Feuil1.Range("A1").CopyFromRecordset Rst
    
    Cat.Tables("LesPoints").Indexes.Delete indexTri.Name 'suppression index
        
Fin:
    Cnn.Close
    Set Cat = Nothing
    Set indexTri = Nothing
    Set Rst = Nothing
    Set Cnn = Nothing
End Sub

Const BaseMDB As String = "TENNIS2003.MDB"
Const Table1 As String = "[Liste des raquettes]"

Dim Conn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim Cat As New ADOX.Catalog

Dim i As Byte
Dim L As Long, C As Byte
Dim j, Msg, NumRaq, DernierNumRaq, a, k As Integer
Dim b As Variant
Dim Path As String

Dim vaItems As Variant
Dim vTemp As Variant

On Error Resume Next

ListBox1.Clear

' Chargement de la liste des raquettes de la base
Path = "P:\Rdraq\ESSAI\CARACRAQ\TENNIS\"

With Conn
    .Provider = "Microsoft.JET.OLEDB.4.0"
    .Open Path & BaseMDB
End With

With Rst
    .ActiveConnection = Conn
    .Open Table1, LockType:=adLockOptimistic
End With

' Tri de la table par numéro de raquette
[B]Rst.Sort = "Numéro de raquette"[/B]
Do Until Rst.EOF
    ListBox1.AddItem (Rst.Fields("Numéro de raquette"))
    Rst.MoveNext
    a = Rst.Fields("Numéro de raquette").Value
Loop

    'ajout d'un index pour la table "LesPoints"
    'attention : renvoie une erreur si un index existe déja
    Cat.Tables("LesPoints").Indexes.Append indexTri

Dim Cn As ADODB.Connection
Dim rsT As ADODB.Recordset
Dim x As String

Set Cn = New ADODB.Connection
With Cn
    .Provider = "Microsoft.JET.OLEDB.4.0"
    .Open "C:\Documents and Settings\mimi\dossier\dataBase.mdb"
End With
  
      
Set rsT = New ADODB.Recordset

x = "SELECT * FROM [Liste des raquettes] ORDER BY [Numéro de raquette] "

With rsT
    .ActiveConnection = Cn
    .Open x, , adOpenStatic, adLockOptimistic, adCmdText
End With

Range("A1").CopyFromRecordset rsT

rsT.Close
Set rsT = Nothing
Cn.Close
Set Cn = Nothing