Private Sub CodeArticle_AfterUpdate()
Dim x&
With Range("BDproduit[Code Article]")
x = Application.IfError(Application.Match(Val(CodeArticle.Value), .Value, 0), 0)
If x > 0 Then MsgBox "ce code article est déja utilisé": CodeArticle = "": Exit Sub
End With
End Sub