Bonjour,
tu peux utiliser la fonction OnTime.
Private Sub clock()
Application.OnTime Now + TimeValue("00:30:00"), "taProcedure"
End Sub
Private Sub Workbook_Open
Lancer
End Sub
Sub taProcedure()
"......"
clock 'Pour créer une récursivité
End Sub
'Pour stoper à la fermeture du classeur
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime Now , "taProcedure", , False
End Sub
Cordialement