Bonjour,
un petit truc, parmi des centaines d'autres, donc :
Private Sub Form_Activate()
Timer1.Interval = 60 'ou un autre intervalle de ton choix "cohérent"
End Sub
Private Sub Timer1_Timer()
Static deb As Date, duree As Long
duree = 5 'ici la durée que tu veux, exprimée en secondes
If deb = 0 Then deb = Now
If Now > DateAdd("s", duree, deb) Then
MsgBox "oui"
deb = Now
End If
End Sub