Timer erreur 424

Je débute et j'essaie de réaliser un timer ds excel 2010 de ce type

mais je heurte à cette erreur 424(en gras) je n'arrive pas à comprendre pourquoi

Sub starttimer()

Application.OnTime Now + TimeValue("00:00:01"), "nexttick"

End Sub

Sub nexttick()

Sheet1.Range("B1").Value = Sheet1.Range("b1").Value = TimeValue("00:00:01")

starttimer

End Sub

Sub stoptimer()

Application.OnTime Now + TimeValue("00:00:01"), "nexttick", , False

End Sub

Pouvez-vous m'aider svp

Merci d'avance

Bonjour

Remplace le code dans le fichier par celui ci-dessous

Sub nexttick()
Dim temps
temps = Now + TimeValue("00:00:1")
Sheets("feuil1").Range("B1") = temps
starttimer
End Sub

Si ok, veille à cloturer le fil en cliquant sur la case à cocher à coté du bouton EDITER

Cordialement