Sub Nommer_Extraction()
Dim Chemin As String
Application.ScreenUpdating = False
Chemin = "C:\Enigmes/"
With ActiveWorkbook
.SaveAs Filename:=Chemin & ThisWorkbook.Sheets("Feuil1").Range("F1") & " " & Format(Now, "yyyy-mm-dd")
End With
ActiveWorkbook.Save
Application.Quit
End Sub