Sub CréerFichierCSV()
Dim Plage As Range
Dim Chemin As String, Fichier As String, NomFichier As String, Chaine As String
Dim L As Long, F As Integer, c As Integer
Dim Fd As Worksheet
Set Fd = Worksheets("Mappe1")
'----------------------------------------------------------------------------------------------
NomFichier = "1Test" & ".csv"
Chemin = "K:"
ChDir Chemin 'se place sur le repertoire du programme
Fichier = Chemin & "\" & NomFichier
Application.ScreenUpdating = False
With Fd
Set Plage = Fd.UsedRange
F = FreeFile()
Open Fichier For Output As #F
For L = 1 To Plage.Rows.Count
Chaine = Plage.Cells(L, 1)
For c = 2 To Plage.Columns.Count
Chaine = Chaine & ";" & Plage.Cells(L, c)
Next c
Print #F, Chaine
Next L
Close #F
End With
Set Fd = Nothing
End Sub