Bonjour ZAREK,
Place ce code dans le ThisWorkbook de ton fichier. Pas besoin de userform.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets("Feuil2").Range("F9").Value <> 1 Then
MsgBox ("Saisie obligatoire avant d'enregistrer.")
Sheets("Feuil2").Select
Range("F9").Select
Cancel = True
End If
End Sub
Bon après-midi.
José