Timer

Bonjour tout le monde,
j'ai un soucis concernant un timer.
Mon but est de lancer une sub tte les minutes... pour l'instant voici les étapes pour y arriver :
-je boucle sur un time qui envoie l'heure dans une cellule
-je lance la sub si la seconde = 59...

Cela marche mais il plante au bout de quelques opérations??? Peut être est-ce un probleme avec la boucle.
La voici :
sub temps ()
[A1].Value = time
DoEvents
call temps
end sub

Merci de me renseigner sur le sujet car je bloque sur ce petit problème depuis quelques temps :s