Option Explicit
Sub MAJ_CSV()
Dim t, chemin$, fichier$, n%, x%, a(), i&, txt$
t = Timer
chemin = ThisWorkbook.Path & "\" 'à adapter si nécessaire
fichier = Dir(chemin & "*.csv") '1er fichier csv du dossier
While fichier <> ""
n = n + 1
x = FreeFile
Open chemin & fichier For Input As #x 'ouverture en lecture séquentielle
Erase a: i = 0 'RAZ
While Not EOF(x)
Line Input #x, txt 'récupère la ligne
txt = Replace(Replace(txt, """,", ";"), """", "")
txt = Replace(txt, ",", ".") 'séparateur décimal le point pour tous les fichiers
txt = Replace(txt, "é", "é")
ReDim Preserve a(i) 'base 0
a(i) = txt
i = i + 1
Wend
Close #x
Open chemin & fichier For Output As #x 'ouverture en écriture
Print #x, Join(a, vbLf)
Close #x
fichier = Dir 'fichier suivant
Wend
MsgBox n & " fichier(s) csv traité(s) en " & Format(Timer - t, "0.00 \sec")
End Sub