Sub test()
Dim i As Integer, x As String, chemin As String
'If Range("K1") = "" Then MsgBox "Le nom de fichier n'est pas renseigné .....,": Exit Sub
'ActiveWorkbook.SaveAs Range("K1"), xlOpenXMLWorkbookMacroEnabled
If Range("K1") = "" Then MsgBox "Le nom de fichier n'est pas renseigné ....., carton rouge": Exit Sub
If Dir(Range("K1")) <> "" Then MsgBox " Et oui , il est déjà existant ": Exit Sub
ActiveWorkbook.SaveAs Range("K1"), xlOpenXMLWorkbookMacroEnabled
Application.DisplayAlerts = False
For i = 10 To 3 Step -1
Sheets(i).Delete
Next i
Application.DisplayAlerts = True
x = ActiveSheet.Range("K1")
chemin = "C:\Users\Dédé\Desktop\Text\"
'If x <> "" Then ActiveWorkbook.SaveAs chemin & x
If x <> "" Then ThisWorkbook.SaveAs chemin & x
' Destruction des boutons sur la feuille
Dim s As Object
For Each s In ActiveSheet.Buttons
If s.Name <> "Menu, dudu" Then s.Delete
Next
'Stop
End Sub