Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:B1")) Is Nothing Then Exit Sub
If Range("A1").Value = Range("B1").Value Then
Range("E1").Value = "Ok"
Else
Range("E1").Value = "Erreur"
MsgBox "Le montant de la facture n'est pas égale au montant de la facture EXCEL. Veuillez vérifier.", vbExclamation + vbOKOnly, "Attention"
End If
End Sub