LISTBOX Excel pour modifier Base Acess

Dim BDD As DAO.Database
Dim RS As DAO.Recordset
Dim BDDPath As String
Dim SQLQuery As String
Dim ListeResultats As Variant
Dim NombreResultats As Integer


Dim m As Long


BDDPath = ThisWorkbook.Path & "\BaseSuspens.mdb"
Set BDD = OpenDatabase(BDDPath, False, False)

SQLQuery = "SELECT [Alerte F1].[Clé] FROM [Alerte F1]"
Set RS = BDD.OpenRecordset(SQLQuery)
RS.MoveLast
m = RS.RecordCount
RS.MoveFirst
ListeResultats = RS.GetRows(m)
With ListBox1
  .ColumnCount = UBound(ListeResultats, 2) + 1
  .List() = Application.WorksheetFunction.Transpose(ListeResultats)
End With
End Sub
End Sub