Public enclenche As Boolean, topArret As Date


    Sub Auto_Open()
    sheets("Feuil1").Activate
    Cligno
    end Sub

    Sub Cligno()
    if Not enclenche then
    topArret = Now + Timevalue("00:00:10")
    enclenche = true
    range("maPlage").Interior.ColorIndex = 2
    end if
    if Now >= topArret then
    enclenche = false
    Exit Sub
    Else
    range("maPlage").Interior.ColorIndex  = 5 - range("maPlage").Interior.ColorIndex
    application.OnTime Now + Timevalue("00:00:1"), "Cligno"
    end if
    end Sub