If compte > 1 Then
UF_q.CR_q.Caption = compte & " seconds"
Else
UF_q.CR_q.Caption = compte & " second"
End If
If compte = 0 Then
etat = False
Unload UF_q
Exit Sub
End If
if etat then
Heure = Now + TimeValue("00:00:01")
Application.OnTime Heure, procedure:="maProcedure", schedule:=true
compte = compte - 1
else
Application.OnTime Heure, procedure:="maProcedure", schedule:=false
end if