Inputbox s'ouvrant périodiquement dans des Userforms

Bonjour à tous,

Je dois créer une application sous Excel constitué uniquement de Userform (l'utilisateur ne peut donc pas voir les feuilles excel sauf si il a un mot de passe), mais ayant un niveau assez bas en VBA, j'ai un petit problème :

J'ai donc plusieurs Userforms (que je vais nommer 1, 2, 3, 4 et 5 et qui forme une chaîne : le 1 emmène au 2, le 2 au 3 et vice et versa) et je voudrais qu'a partir de Userform2 (quand je passe du 2 au 3) un InputBox me demandant une quantité apparaisse toutes les 30min (pour le test on prendra 10 secondes).

Cet InputBox apparaîtra donc seulement dans les Userform 3, 4 et 5 et se remettra a 0 quand l'utilisateur passera de l'userform 3 à 2

J'ai donc fais le code ci-dessous en fesant un "Call Timez " dans l'Userform2 ( Reveil = Format (Now,"hh:mm:ss"), mais rien ne se produit.

Public Sub Timez(Reveil As Date, Tps As Date)
Dim nbre As Integer

If Tps = Reveil + TimeValue("00:00:10") Then
    nbre = Application.InputBox("Nombre de produits effectués : ", Type:=1)
    Reveil = Format(Now, "hh:mm:ss")

End If

    Tps = Now + TimeValue("00:00:01")
    Application.OnTime Tps, "Timez", , True

End Sub

Merci d'avance pour vos réponse et demandez-moi si vous avez des questions ou si vous voulez le fichier Excel pour mieux comprendre

Coordialement