Bonsoir à tous
Christelle, pour que cela fonctionne il faut mettre la ligne suivante dans une procedure differente
sub Principal()
application.ontime now+timevalue("00:00:30"),"procedure"
end sub
Sub procedure()
'ton code
Principal 'si tu veux toutes les trentes secondes mais cela fait une boucle infinie tu rappelles Principal, le mieux c de mettre un msgbox pour demander à l'user si il veut continuer ou pas...
end sub
A+++