Salut Dagada75, salut le forum,
En plaçant cette macro dans le composant ThisWorkbook ton classeur se sera pas sauvé si la cellule A1 de l'onglet Feuil1 est vide.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets(1).Range("A1") = "" Then Cancel = True
End Sub
À plus,
Robert