Repeter une macro toute les 30 secondes

Bonjour,

Voila j ai une macro mais j'aimerai qu elle se lance toute les 30 secondes

voici ma macro:

Sub RSI()
'
' RSI Macro
'
For i = 1 To 2



Sheets("Cours").Select

Dim codevaleur As Range
Set codevaleur = Worksheets("Cours").Range("a" & i)
Dim nomvaleur As Range
Set nomvaleur = Worksheets("Cours").Range("b" & (i + 1))
Dim lien1 As Range
Set lien1 = Worksheets("Cours").Range("c1")
Dim lien2 As Range
Set lien2 = Worksheets("Cours").Range("d1")


Workbooks.Open Filename:=lien1 & codevaleur & lien2

Range("C184").Select
Selection.Copy


ActiveWindow.Close
Windows("Cours.xls").Activate
Range("B" & (i + 1)).Select
ActiveSheet.Paste


Next
End Sub

J'ai essayer en lisant les reponse les lignes, mais elle ne la prend pas en compte et la lance juste une fois

Danstrentesecondes = TimeSerial (0,0,0 +30)
etc ...

J'avoue patoger un peu, et si vous pouviez me donner un cp de main ca serait bien aimable :)

Merci d'avance

PS: autre tite question en passant, comment fait ton pour que lorsque la macro ouvre une nouvelle page il la ferme sans me demander d'enregistrer ou alrs qu il enregistre directement seul.

Merci bcp