Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Microsoft Data Object library 2.8 doit être coché
If Target.Address = "$B$2" Then
repertoire = ThisWorkbook.Path & "\"
Set cnn = New ADODB.Connection
cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & repertoire & "Access2000.mdb"
Set rs = cnn.Execute("SELECT nom_client FROM client Order By nom_client")
Do While Not rs.EOF
temp = temp & rs("nom_client") & ","
rs.MoveNext
Loop
Target.Validation.Delete
Target.Validation.Add xlValidateList, Formula1:=Left(temp, Len(temp) - 1)
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End If
End Sub