Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B1:B50")) Is Nothing Then Exit Sub
If Not Target = "" Then
If Target.Offset(0, -1).Value > Target.Value Then
MsgBox "Pas bon"
'....... autres actions
Target = ""
End If
End If
End Sub