Lancer une macro toutes les 10 secondes

Bonjour j'essaye de lancer une macro "sauterligne" toutes les 10 secondes avec ce code

Sub lancer()

 sauterligne

    Application.OnTime Now + TimeSerial(0, 0, 10), lancer

End Sub

Le probleme est que au bout des 10 secondes un message d'erreur s'affiche :

Merci pour votre aide

Bonjour,

Essaie comme ceci :

Application.OnTime Now + TimeSerial(0, 0, 10), "lancer"

Daniel

Ah oui pardon j'ai déjà essayé avec les guillemets mon après avoir copier coller et même résultat.

La 1ere itération se fait bien mais après 10 seconde ça plante

bonjour sacul3824,DanielC,

normallement cela doit fonctionner ce qu DanielC Dit.

35sacul.xlsm (20.59 Ko)

Merci beaucoup ca fonctionne parfaitement savez vous comment faire pour ajouter un bouton permettant de lancer et arrêter la macro ?

re,

comme ceci

27sacul.xlsm (27.46 Ko)

Merci beaucoup