Bonjour Lone-wolf, je te remercie ton code est impressionnant. J'ai pu dupliquer à 21 cellules d'alerte celui-ci. Cela prend un certain délai pour l'exécution. Peut on mettre en pause le diagnostic, ma fonction stopclign n'est plus du tout adaptée pourrais tu réécrire les lignes inappropriées ? Elle est active mais n'interrompt pas l'exécution de "Clign" merci d'avance et bonne journée,
Option Explicit
Dim Temps As Variant
Public Sub StopClign()
On Error Resume Next
Application.OnTime Temps, "Clign", , False
On Error GoTo 0
With ThisWorkbook
'Fond
.Sheets("Synthèse").Range("E6:E8,E11:E17,E20,E23:E24,E27:E28,E31:E32,E35:E36,E39,E42").Interior.ColorIndex = xlNone
End With
End Sub