Option Explicit
Sub CréerFichierCSV_BD()
Dim Plage As Range, Fichier As String, Chaine As String
Dim L As Long, F As Integer, C As Integer
NomFichier = "Mon fichier" & ".csv" 'à adapter
Fichier = ThisWorkbook.Path & "\" & NomFichier
Application.ScreenUpdating = False
With Worksheets("feuil1")
Set Plage = .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
Application.ScreenUpdating = True
MsgBox "Transfert terminé!"
End Sub