Option Explicit
Sub test()
Dim i As Integer, x As String
Workbooks("Matrise.xlsm").Save
Application.DisplayAlerts = False
For i = 10 To 3 Step -1
Sheets(i).Delete
Next i
Application.DisplayAlerts = True
x = InputBox("Nom fichier ?")
If x <> "" Then ActiveWorkbook.SaveAs x
End Sub