Sub ExportFile()
Chemin$ = ThisWorkbook.Path: Fichier$ = "Liste_amortisseur.csv" 'nom du fichier voir si automatisation possible par cellule
CheminFichier$ = Chemin$ & "\" & Fichier$
With Sheets("Export").UsedRange: NoDernLig& = .Cells(.Rows.Count, .Columns.Count).Row: End With
With Sheets("Export")
Open CheminFichier$ For Output As #1
For L& = 1 To NoDernLig&
V$ = .Cells(L&, 1) & "," & .Cells(L&, 3) & "," & .Cells(L&, 4) & "," & .Cells(L&, 5) 'je ne veux pas la colonne 2
Print #1, Replace(V$, ",", ";")
'Print #1, Right(V$, Len(V$) - 1) ' voir si comme ceci est utile !? sinon , V$ ça suffit !
Next
End With
Close #1
End Sub