Private Sub Worksheet_Change(ByVal R As Range)
Set R = Range("E33")
Select Case R
Case Is > 1000
MsgBox "Le total des points est supérieur à 1 000." & Chr(10) & "Compléter l'autre bon de livraison.", 0 + 16, "ATTENTION"
Case Else
'
End Select
End Sub