Bonjour,
et pour compléter sur ton pb, il faut superviser les antécédents de ta formule, là où tu fais tes saisies, et non la cellule de la formule :
Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("N13:O13")) Is Nothing Then
If [P13].Value >= 10000 Then
Cells(Target.Row, 2).Activate
Call TEST
End If
End If
Application.ScreenUpdating = True
End Sub
A mon avis ton Application.ScreenUpdating = False ne gêne pas mais il est inutile.
eric