Private Sub quantite1_AfterUpdate()
Set C = Sheets("Produits").Columns("A").Find(What:=numerodepiece1)
If Not C Is Nothing Then
Cancel = True
If quantite1 > Val(C.Offset(, 2)) Then
quantite1 = ""
prixunitaire1 = ""
prixtotal1 = ""
MsgBox "Quantités demandées supérieures à Quantités restantes"
Exit Sub
Else
C.Offset(, 2) = C.Offset(, 2) - Val(quantite1)
prixunitaire1 = C.Offset(, 1)
prixtotal1 = C.Offset(, 1) * Val(quantite1)
End If
End If
End Sub