Bonjour à tous,
Une macro issue de la nuit des temps. Elle lit la feuille active ét écrit le fichier csv :
Sub test()
Dim Enrgt
Close #1
Open "aaa.csv" For Output As #1
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Enrgt = ""
For Each c In Range(Cells(i, 1), Cells(i, Columns.Count).End(xlToLeft))
Enrgt = Enrgt & ";" & c
Next c
Enrgt = Right(Enrgt, Len(Enrgt) - 1)
Print #1, Enrgt
Next i
Close #1
End Sub
Daniel