Sub Exemple()
Dim Cn As ADODB.Connection
Dim FichierCSV As String, Dossier As String
Dim texte_SQL As String
Dim Rst As ADODB.Recordset
'Répertoire du fichier
Dossier = "C:\Users\profile\Downloads\" 'penser à terminer par un \
'Nom du fichier .csv
FichierCSV = "test.CSV" 'penser à l'extension .csv
Set Cn = New ADODB.Connection
Cn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Dossier & _
";Extended Properties=""text;HDR=Yes;FMT=Delimited(;)""" & _
";Persist Security Info=False"
Cn.ConnectionTimeout = 40
Cn.Open
'-----------------
texte_SQL = "SELECT * FROM " & FichierCSV
Set Rst = New ADODB.Recordset
Rst.Open texte_SQL, Cn, adOpenStatic, adLockReadOnly
MsgBox Rst.RecordCount & " nombre de lignes."
Rst.Close
Set Rst = Nothing
Cn.Close
Set Cn = Nothing
End Sub