Salut Wild,
DjiDji,
Porte bien ton pseudo, hein!
Private Sub Worksheet_Change(ByVal Target As Range)
'
If Not Application.Intersect(Target, Range("P11:Q19")) Is Nothing Then
If [J3] < 0.15278 And [C3] > 0 Then MsgBox "Conditions recontrées!"
End If
'
End Sub
Bon travail!
A+