Sub EnregisterECN()
'enregister la liste de distribution dans un autre fichier qui contient la macro email
Dim SaveFileName As String
Dim Feuille As Worksheet
'enregistre le fichier en cours
ThisWorkbook.Save
SaveFileName = "DIF-FED-" & Range("L2") & "_" & Format(Date, "dd_mm_yyyy")
'enregistre une copie
Sheets("Liste de diffusion").Copy
ActiveWorkbook.ActiveSheet.Shapes.Range(Array("Button 1")).Delete
ActiveWorkbook.BreakLink Name:=ThisWorkbook.Name, Type:=xlExcelLinks
ActiveWorkbook.SaveAs Filename:="C:\Tempo\" & SaveFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.Close False
End Sub