Sub compte()
If Not running Then Exit Sub
Dim r As Range
[A1] = [A1] + UneSec
Application.OnTime Now + UneSec, "compte"
Set r = Range("C10:C" & Rows.Count).Find("?*", , xlValues)
If r Is Nothing Then Set r = [C10] 'sécurité
ActiveWindow.ScrollRow = r.Row
End Sub