Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("[COLOR=red][B]B:B[/B][/COLOR]")) Is Nothing Then Exit Sub
If Range("H37") > 10000 Then
MsgBox "Attention, valeur critique !", vbExclamation, "Dépassement"
End If
End Sub
Petit détail à éventuellement régler, quand je me déplace dans la colonne B sans changer aucune valeur, le message apparait, est il possible de faire apparaitre le message uniquement si on entre une valeur dans la colonne B ??