Sub CSV()
'
' CSV Macro
'
'
ActiveWorkbook.SaveAs Filename:= _
"Macintosh HD:Users:Dorora:Documents:CSV:MonCSV " & Day(Date) & "." & Month(Date) & "." & Year(Date) & " " & Hour(Time) & "-" & Minute(Time) & ".csv", FileFormat _
:=xlCSV, CreateBackup:=False
MsgBox "le CSV à été généré"
End Sub