Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Valeur As Integer
Valeur = Range("D2").Value
If Valeur > Range("E2") Then
MsgBox " Attention dépassement du stock " & Chr(10) & _
"Veuillez modifier votre quantité " & Chr(10) & _
" " & Chr(10) & _
"Merci " & Chr(10) & _
" ", vbOKOnly + vbExclamation, "Attention"
Range("D2").Select
End If