Set Cnn = New ADODB.Connection
Repertoire = "C:\Documents and Settings\dossier\"
Cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & _
Repertoire & "database.mdb"
Set Rs = Cnn.Execute("SELECT DISTINCT Nom_Client FROM Table1 Order By Nom_Client")
Do Until Rs.EOF
Cible = Cible & Rs.Fields(0).Value & ","
Rs.MoveNext
Loop
With Range("A1").Validation
.Delete
.Add Type:=xlValidateList, Formula1:=Cible
End With
Rs.Close
Cnn.Close
Set Rs = Nothing
Set Cnn = Nothing