J'ai trouvé !! Mercéé
J'ai crée un seul module grâce a ton code =>
Dim second
Sub Actualiser()
'
' Définit l'intervalle avec l'heure actuelle
second = TimeSerial(Hour(Time), Minute(Time), Second(Time) + 10)
' Appel récursif
Application.OnTime uneheure, "Actualiser"
Call MACROACTUALISER
End Sub
Sub MACROACTUALISER()
'
' MACROACTUALISER Macro
'
'
ActiveWorkbook.RefreshAll
End Sub
Sub auto_open()
Actualiser
End Sub
Sub auto_close()
On Error Resume Next
Application.OnTime uneheure, Procedure:="Actualiser", Schedule:=False
End Sub