Private Sub Worksheet_Change(ByVal R As Range)
If Intersect(R, [Valeur]) Is Nothing Then Exit Sub 'hors colonne valeur
If Application.CountIf([Types], "volvo") > 0 Then
MsgBox "Interdiction mise en place", 16, "Attention..."
Application.EnableEvents = 0: R = "": Application.EnableEvents = 1
End If
End Sub