CSV & XLS : ouverture et conversion

Sub ImportCsv(destSheet As Worksheet, csvFilePath As String, Optional delimiter As String = ";")
Dim myFso As FileSystemObject, csvFile As TextStream, i As Integer, j As Integer, tabStr() As String
Set myFso = CreateObject("Scripting.FileSystemObject")
Set csvFile = myFso.OpenTextFile(csvFilePath)
While Not csvFile.AtEndOfStream
    i = i + 1
    tabStr = Split(csvFile.ReadLine, delimiter)
    For j = LBound(tabStr) To UBound(tabStr)
        destSheet.Range("A" & i).Offset(0, j) = tabStr(j)
    Next j
Wend
End Sub

Sub test()
Dim feuilleDestination As Worksheet, fichierCsv As String
Set feuilleDestination = ThisWorkbook.Sheets("Feuil1")
fichierCsv = "E:\XLS\test\document.csv"

ImportCsv feuilleDestination, fichierCsv
End Sub

ImportCsv feuilleDestination, fichierCsv, "[B][COLOR=Red]-*-[/COLOR][/B]"

[COLOR=BLUE]Sub[/COLOR] ImportCsv(destSheet [COLOR=BLUE]As[/COLOR] Worksheet, csvFilePath [COLOR=BLUE]As String[/COLOR], [COLOR=BLUE]Optional[/COLOR] delimiter [COLOR=BLUE]As String[/COLOR] = ";")
[COLOR=BLUE]Dim[/COLOR] myFso [COLOR=BLUE]As Object[/COLOR], csvFile [COLOR=BLUE]As Object[/COLOR], ligne [COLOR=BLUE]As Integer[/COLOR], colonne [COLOR=BLUE]As Integer[/COLOR], tabStr() [COLOR=BLUE]As String[/COLOR]
[COLOR=BLUE]Set[/COLOR] myFso = CreateObject("Scripting.FileSystemObject")
[COLOR=BLUE]Set[/COLOR] csvFile = myFso.OpenTextFile(csvFilePath)
[COLOR=BLUE]While Not[/COLOR] csvFile.AtEndOfStream
    ligne = ligne + 1
    tabStr = Split(csvFile.ReadLine, delimiter)
    [COLOR=BLUE]For[/COLOR] colonne = [COLOR=BLUE]LBound[/COLOR](tabStr) [COLOR=BLUE]To UBound[/COLOR](tabStr)
        [COLOR=GREEN]'si l'élément ressemble à une date, la "reformater"[/COLOR]
        [COLOR=BLUE]If[/COLOR] tabStr(colonne) [COLOR=BLUE]Like[/COLOR] "??/??/????" [COLOR=BLUE]Then[/COLOR]
            destSheet.Range("A" & ligne).Offset(0, colonne) = DateSerial(Right(tabStr(colonne), 4), Left(tabStr(colonne), 2), Mid(tabStr(colonne), 4, 2))
        
        [COLOR=GREEN]'sinon, copier l'élément tel quel[/COLOR]
        [COLOR=BLUE]Else[/COLOR]
            destSheet.Range("A" & ligne).Offset(0, colonne) = tabStr(colonne)
        [COLOR=BLUE]End If[/COLOR]
    [COLOR=BLUE]Next[/COLOR] colonne
[COLOR=BLUE]Wend[/COLOR]
[COLOR=BLUE]End Sub[/COLOR]