Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Worksheets("Contact2").Range("V643") <> Worksheets("Contact2").Range("O639") Then
Cancel = True
MsgBox "Les prix ont changés! Vous devez générer un PDF avant de sauvegarder"
End If
End Sub