Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3", "B5")) Is Nothing Then
If Application.CountA(Range("B3", "B5")) = 2 And [B3] > [B5] Then
MsgBox "Quota annuel dépassé!", vbCritical, "Erreur"
End If
Else
MsgBox "Les cellules sont vides!", vbCritical
End If
End Sub