Récupérer données CSV avec Excel

Public Sub exemple()
Dim myFso As Object, csvFile As Object
Dim csvLine As String, csvDelimiter As String, csvFileName As String, tabStr() As String
Dim i As Integer[B][I], iLigne As Integer, iColonne As Integer[/I][/B]

'fichier texte à traiter
csvFileName = "E:\aMiki\XLS\test\test.csv"
'délimiteur csv
csvDelimiter = ";"

'ouvrir le fichier CSV
Set myFso = CreateObject("Scripting.FileSystemObject")
Set csvFile = myFso.OpenTextFile(csvFileName)

'tant qu'on est pas à la fin du fichier CSV (boucle sur chaque ligne)
While Not csvFile.AtEndOfStream
[I] [B]   iLigne = iLigne + 1
    iColonne = 0
[/B] [/I]   'lire la ligne suivante
    csvLine = csvFile.ReadLine
    '"spliter" la ligne
    tabStr = Split(csvLine, csvDelimiter)
    'boucler sur chaque élément de la ligne
    For i = LBound(tabStr) To UBound(tabStr)
[I] [B]       iColonne = iColonne + 1
        Debug.Print "Ligne " & iLigne & ", Colonne " & iColonne & " --> " & tabStr(i)
[/B] [/I]   Next i
Wend

' fermer le fichier
csvFile.Close
Set csvFile = Nothing: Set myFso = Nothing
End Sub

Application.DisplayAlerts = False

Application.DisplayAlerts = True