Sub CSV()
Dim fichier As Variant
fichier = Application.GetOpenFilename("Fichiers Excel (*.xlsx), *.xlsx")
If fichier = False Then Exit Sub
Application.ScreenUpdating = False
With Workbooks.Open(fichier)
.SaveAs Left(fichier, Len(fichier) - 4) & "csv", xlCSV, Local:=True
.Close False
End With
End Sub