Fichier en CSV - convertir données avec macro

Option Explicit 

Const ForReading = 1, ForWriting = 2 

Sub TransformerFichier() 


    Dim objFSO As Object, objFichier As Object 
    Dim Dossier As Variant, Ligne As Long, Boucle As Long 
    Dim strTexte As String, strRetour As String, Boite() As String 
    Dim Longueur As Long, Compteur As Long 
     
    Set objFSO = CreateObject("Scripting.FileSystemObject") 

    ' Adapter le lecteur
    ChDrive "C" 
    ' Adapter le chemin d'accès
    ChDir "C:\Document\Work" 
    Dossier = Dir("*.csv") 

    While Dossier <> "" 
        Set objFichier = objFSO.OpenTextFile(Dossier, ForReading) 
        Compteur = 1 
        While Not objFichier.AtEndOfStream 
            strTexte = objFichier.ReadLine 
            Longueur = Len(strTexte) 
            For Boucle = 1 To Longueur 
                If (Mid(strTexte, Boucle, 1) = ";") Then 
                    strRetour = strRetour & "," 
                Else 
                    strRetour = strRetour & Mid(strTexte, Boucle, 1) 
                End If 
            Next Boucle 
            ReDim Preserve Boite(Compteur) 
            Boite(Compteur - 1) = strRetour 
            strRetour = "" 
            Compteur = (Compteur + 1) 
        Wend 
        objFichier.Close 
         
        Set objFichier = objFSO.CreateTextFile(Dossier, ForWriting) 
         
        For Boucle = 0 To (UBound(Boite()) - 1) 
            objFichier.WriteLine Boite(Boucle) 
        Next Boucle 
        objFichier.Close 
        Dossier = Dir() 
    Wend 
     
    MsgBox "Traitement terminé." 

End Sub