Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets("fiche données").Range("y16") = "7" And Sheets("SSI").Range("F3") = "" And Sheets("SSI").Range("H3") = "" Then
MsgBox "merci indiquer dans l'onglet SSI si march extra communautaire ou pas"
Cancel = True
End If
End Sub