Sub FichiersCSV()
Dim t, chemin$, i%, fichier$, x%
t = Timer
chemin = ThisWorkbook.Path & "\Fichiers CSV\"
If Dir(chemin, vbDirectory) = "" Then MkDir chemin
With [A1].CurrentRegion
For i = 1 To .Rows.Count
fichier = chemin & Format(i, "00000") & ".csv"
x = FreeFile
Open fichier For Output As #x 'ouverture en écriture séquentielle
Print #x, Join(Application.Transpose(Application.Transpose(.Rows(i))), ";")
Close #x
Next
End With
MsgBox Format(i - 1, "#,##0") & " fichiers CSV créés en " & Format(Timer - t, "0.00 \s")
End Sub