Pb import .csv

Bonjour, j'ai un souci d'importation avec un fichier csv.
J'ai trouvé cette proc. sur le forum:


Sub ImportFichierGestionCsv()
Dim Rc As ADODB.Recordset
Dim Cn As String, Chemin As String, Fichier As String
Dim i As Long

Chemin = "C:\sauv_gestion"
Fichier = "GESTION.csv"

Cn = "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
"Dbq=" & Chemin & ";Extensions=asc,csv,tab,txt"

Set Rc = New ADODB.Recordset
Rc.Open source:="SELECT * FROM " & Fichier, ActiveConnection:=Cn

If Not Rc.EOF Then
For i = 0 To Rc.Fields.Count - 1 'recuperation entetes
Cells(1, 1).Offset(0, i) = Rc.Fields(i).Name
Next
Range("A2").CopyFromRecordset Rc
End If

Rc.Close
End Sub

Je l'ai adapté pour le chemin, mon problème est que cela ne m'importe pas 2 lignes (D2,D3). Pour une des deux lignes, les valeurs sont au format date.
Avez vous une idée?
Merci