Private Sub TimerProc(ByVal hwnd As Long, ByVal MSG As Long, ByVal nIDEvent As Long, ByVal dwTimer As Long)
On Error GoTo errHandler
Application.OnTime Now, "ExécuterLeTruc"
Exit Sub
errHandler:
KillTimer Application.hwnd, 0
End Sub
Sub ExécuterLeTruc()
Cell.Interior.ColorIndex = IIf(Int(dwTimer / 1000) Mod 2 = 0, xlNone, 6)
Cell.Calculate
End Sub