Boite de dialogue , erreur sur clique du bouton annuler

Bonjour à tous

Je souhaite ajouter 2 variables en les sélectionnant dans une boite de de dialogue

une pour l'année et l'autre pour un numéro de 1 à 3, mais j’obtiens un message d'erreur '13' lorsque je clique sur annuler j'aurais préférer revenir sur mon onglet ( Initialisation )

pouvez vous m'aider ?

Merci

Sub Init()

Dim Année As Integer

Dim Eq As Byte

'init

Année = InputBox("Entrer l'année", "Année XXXX")

Do

Eq = InputBox("Désigner un Numéro de 1 à 3 ")

Loop While Eq > 3