Sub FichierCSV()
Dim T(), Fichier As String, Chaine As String
Dim L As Long, f As Integer, c As Integer
Fichier = ThisWorkbook.Path & "\" & "MonFichier.csv"
Application.ScreenUpdating = False
'On Error Resume Next
T = Feuil1.UsedRange.Value
f = FreeFile()
Open Fichier For Output As #f
For L = 1 To UBound(T, 1)
Chaine = T(L, 1)
For c = 2 To UBound(T, 2)
Chaine = Chaine & ";" & T(L, c)
Next c
Print #f, Chaine
Next L
Close #f
End Sub