Bonjour,
Merci pour votre réponse mais malheureusement cela ne fonctionne pas.
Voici le code que j'ai mis :
Sub ComboBox1_Change()
Dim BDD As String, Req As String
Dim Cnx As Object, Rst As Object
Dim lig As Long, i As Long
Dim T1 As Variant, T2 As Variant
BDD = "Provider=Microsoft.ACE.OLEDB.16.0;" & _
"Data Source=C:\Users\loic\Desktop\M2 BF\projet vba\2017_ProjectAppleDataBase.accdb"
Req = " SELECT DISTINCT Industry_Name FROM IndustryAverage ORDER BY Industry_Name"
Set Cnx = CreateObject("ADODB.Connection")
Cnx.Open "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & BDD
Set Rst = CreateObject("ADODB.Recordset")
Rst.Open Req, Cnx, 3
lig = Rst.RecordCount
ReDim T2(lig - 1)
If Not lig = 0 Then
Rst.MoveFirst
T1 = Rst.GetRows
For i = 0 To lig - 1
T2(i) = T1(0, i)
Next i
UserForm1.ComboBox1.List = T2
End If
Cnx.Close
Set Cnx = Nothing
Set Rst = Nothing
End Sub