Sub SauveCSV()
Dim Plage As Range, TDon(), TJn$(), L&, C&, Sep$, NomFic$
Sep = InputBox("Veuillez entrer le séparateur virgule ou point-virgule : ")
Set Plage = ActiveSheet.Range("A1:D" & ActiveSheet.Range("A65536").End(xlUp).Row)
NomFic = InputBox("Veuillez entrer le nom de votre fichier : ")
Range("G5").Value = NomFic
TDon = Plage.Value
ReDim TJn(1 To UBound(Tdon, 2))
Open "C:\CSV\ " & NomFic & ".csv" For Output As #1
For L = 1 To UBound(Tdon, 1)
For C = 1 To UBound(Tdon, 2)
TJn(C) = TDon(L, C): Next C
Print #1, Join(TJn, Sep): Next L
Close #1
Application.CutCopyMode = False
MsgBox "Le traitement est terminé", vbOKOnly + vbInformation, "Luc MOUNY"
End Sub