temps d'attente apres fin chrono + macro

[mimi1958]

Bonjour
apres avoir resolu mon probleme grave aux menbres du forum , je vais exposer un nouveau probleme
est il possible après la fin imparti d'un chrono , avoir une macro qui se dirige ver une nouvelle feuille d'attente de 30s par exemple et ensuite declencher une macro
ce qui donne sur ce classeur :
a la fin du chrono ( feuille 2 ) se diriger vers feuille ( attente ) , rester 30 seconde sur cette page et apres ses 30 seondes , ouvrir usf1 et click automatique sur tour 2
je joint le fichier pour comprehension
merci par avance

 

[mimi1958]

j ai fait ca comme code :

Option Explicit
Public running As Boolean
Const UneSec = 1 / 86400
'**************************
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
'************************
Sub compte()
Dim i As Integer
If running Then
Range("A1").Value = Range("A1").Value + UneSec
Application.OnTime Now + TimeValue("00:00:01"), "compte"
'************************
running = Range("B1").Value > Range("A1").Value
Else
Beep 1000, 250
Beep 3000, 100
Beep 1000, 500
'************************
' Attendre 5 secondes
Application.Wait Time + TimeSerial(0, 0, 5)
' Continuer après la pause
Sheets("attente").Select
Application.Wait Time + TimeSerial(0, 0, 5)
UserForm1.Show
End If
End Sub
ca marche mais comment faire pour clic automatique sur 'tour2' dans usf 1