excel et csv.... mystère

    GetTextFileData "SELECT * FROM REPORT_GIF_new.csv", "C:\Excel\5-1-1-1 SAP-Synthèse carnet", Range("A1")

Sub GetTextFileData(strSQL As String, strFolder As String, rngTargetCell As Range)
    ' example: GetTextFileData "SELECT * FROM filename.txt", "C:\FolderName", Range("A3")
    ' example: GetTextFileData "SELECT * FROM filename.txt WHERE fieldname = 'criteria'", "C:\FolderName", Range("A3")
    Dim cn As ADODB.Connection, rs As ADODB.Recordset, f As Integer
    If rngTargetCell Is Nothing Then Exit Sub
    Set cn = New ADODB.Connection
    On Error Resume Next
    cn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
            "Dbq=" & strFolder & ";" & _
            "Extensions=asc,csv,tab,txt;"
    On Error GoTo 0
    If cn.State <> adStateOpen Then Exit Sub
    Set rs = New ADODB.Recordset
    On Error Resume Next
    rs.Open strSQL, cn, adOpenForwardOnly, adLockReadOnly, adCmdText
    On Error GoTo 0
    If rs.State <> adStateOpen Then
        cn.Close
        Set cn = Nothing
        Exit Sub
    End If
    ' the field headings
    For f = 0 To rs.Fields.Count - 1
        rngTargetCell.Offset(0, f).Formula = rs.Fields(f).Name
    Next f
    rngTargetCell.Offset(1, 0).CopyFromRecordset rs    ' works in Excel 2000 or later
    'RS2WS rs, rngTargetCell ' works in Excel 97 or earlier
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub

Sub test()
fichierExport = "E:\aMiki\XLS\test\exportCsv.csv"

Set myFso = CreateObject("Scripting.FileSystemObject")
Set csvFile = myFso.CreateTextFile(fichierExport, True)

For iRow = 1 To ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
    ligneCsv = ""
    For iCol = 1 To ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column
        ligneCsv = ligneCsv & ActiveSheet.Cells(iRow, iCol).Text & ";"
    Next iCol
    csvFile.WriteLine (Left(ligneCsv, Len(ligneCsv) - 1))
Next iRow
End Sub