Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
WFCRunning = False ' S'il tourne déjà, le fait se terminer dès qu'il a à nouveau l'occasion de poursuivre son exécution.
If Intersect(Target, Range("P3:P135")) Is Nothing Then Exit Sub
Application.OnTime Now, "WatchFontColor" ' Sans interrompre cette exécution ci, planifie la sienne
' pour tout de suite, ou plus exactement pour dès que plus rien d'autre ne s'exécute, ni même lui.
End Sub