Private Sub UserForm_Initialize()
'#########################################
'### Référence : Library DAO
'### C:\Program Files\Fichiers communs\Microsoft Shared\DAO\dao360.dll
'### Microsoft DAO 3.6 Object Library
'##########################################
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 'et non pas Integer
BDDPath = ThisWorkbook.Path & "\BaseSuspens.mdb"
Set BDD = OpenDatabase(BDDPath, False, False)
'SQLQuery = "SELECT * FROM Base WHERE " & clé & ""
SQLQuery = "SELECT [AlerteFamille2].[Clé] FROM [AlerteFamille2]"
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