Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim f
If SaveAsUI Then
Cancel = True
f = Application.GetSaveAsFilename(Feuil1.Range("C62"), "Excel Files (*.xlsm), *.xlsm")
If VarType(f) = vbString Then Me.SaveAs f, 52
End If
End Sub