Re : InputBox et MsgBox
J'ai fait la modification, ce qui donne
Dim uneheure
Sub Actualiser()
'
' Définit l'intervalle avec l'heure actuelle
uneheure = TimeSerial(Hour(Time), Minute(Time) + 1, Second(Time))
' Appel récursif
Application.OnTime uneheure, "Actualiser"
Call Mamacro
End...