Bonsoir Jacques87, Roger, le Forum,
Essai en adaptant cette macro peut-être
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
nomdefichier = Application.GetSaveAsFilename([Y12], , , 'Nom de Fichier ')
If Nomdefichier = False Then
Cancel = True
Else
Application.EnableEvents = False
ThisWorkbook.SaveAs nomdefichier: End If
Application.EnableEvents = True
End Sub
Bon courage