Sub export()
Dim nomfeuille$, test As Boolean
nomfeuille = [SOCIETE] & "_" & [NOM]
Application.ScreenUpdating = False
ActiveSheet.Copy
ChDir ThisWorkbook.Path
test = Application.Dialogs(xlDialogSaveAs).Show(nomfeuille, xlCSV)
ActiveWorkbook.Close False
If test Then MsgBox "Fichier CSV créé..."
End Sub