Bonjour,
Une proposition à étudier et à adapter.
Cdlt.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Target.ListObject Is Nothing Then Exit Sub
If Not Intersect(Target, Me.ListObjects(1).ListColumns(3).DataBodyRange) Is Nothing Then
If Me.Cells(4, 1).Value <= 150 Then
MsgBox "Commander EURO CHEF", vbInformation, "Alerte"
End If
End If
End Sub