Private Sub Worksheet_Change(ByVal Target As Range)
'Private Sub Worksheet_Calculate()
Application.ScreenUpdating = 0
If Range("D7") < 0 Then MsgBox "Location impossible !!! Plus de disponibilité pour ce matériel"
Range("B7").ClearContents
Range("B7").Select
End Sub