voila j'ai réussi mais peut on réduire
Sub LectureAccessnb()
repertoire = ThisWorkbook.Path & "\"
Dim rs As New ADODB.Recordset
Set Cnn = New ADODB.Connection
Cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & repertoire & "BDDTEST.mdb"
rs.Open "SELECT count(*) AS Nb FROM Import where DO_Piece<>'' ", Cnn
Cells(2, 2) = rs("Nb")
rs.Close
rs.Open "SELECT SUM(DL_Qte) AS Nb FROM Import where Initiales='C0065' ", Cnn
Cells(3, 2) = rs("Nb")
rs.Close
rs.Open "SELECT SUM(DL_Qte) AS Nb FROM Import where Initiales='C0105' ", Cnn
Cells(4, 2) = rs("Nb")
rs.Close
Cnn.Close
End Sub