Boucle while wend dans un formulaire pour une course

bonjour à tous

je réalise pour une association sportive un formulaire pour une course à pied.

je suis parvenu à réaliser un formulaire qui fonctionne mais je n'arrive pas a faire la boucle "While Wend" pour pouvoir faire mes inscriptions les unes après les autres sans sortir de celui-ci.

je souhaite pour répondre à une série de 4 questions et revenir à la première et si je valide celle-ci sans répondre, sortir de mon formulaire.

je vous présente mon ébauche de travail :

Sub INSCRIPTIONS_RAPIDES()

'

' INSCRIPTIONS_RAPIDES Macro

'

Range("H" & Range("H1000").End(xlUp).Row + 1).Select

reponse = InputBox(" NOM DU COUREUR " + " ou BOUTON -ECHAP- ")

mycheck = Len(reponse)

If mycheck = 0 Then End

reponse2 = InputBox(" PRENOM DU COUREUR ")

ActiveCell.Value = reponse

ActiveCell.Offset(0, -1) = reponse2

reponse3 = InputBox(" GENRE HOMME (H)/ FEMME (F) ")

ActiveCell.Value = reponse

ActiveCell.Offset(0, 2) = reponse3

reponse4 = InputBox(" DATE NAISSANCE au FORMAT JJ/MM/AA")

ActiveCell.Value = reponse

ActiveCell.Offset(0, 3) = reponse4

Range("b1:c1").Select

'

End Sub

si une âme charitable pouvait venir à notre aide ! je vous remercie d'avance

Bonjour et bienvenue sur le forum

Montrer la macro, c'est bien mais joindre le fichier complet, c'est beaucoup mieux ...

A te relire.

Bye !

Bonsoir

voici un fichier montrant mon travail

il suffit de cliquer sur le bouton "inscription rapide"

merci

oups

avec le fichier c'est mieux

Salut Astérix, gmb,

quelque chose comme ça, avec simplement Do...Loop.

Sub INSCRIPTIONS_RAPIDES()
'
' INSCRIPTIONS_RAPIDES Macro
Do
    Range("H" & Range("H" & Rows.Count).End(xlUp).Row + 1).Select
    ActiveCell.Value = InputBox(" NOM DU COUREUR  " + " ou BOUTON -ECHAP- ")
    If Len(ActiveCell) = 0 Then Exit Sub
    ActiveCell.Offset(0, -1) = InputBox("  PRENOM DU COUREUR  ")
    ActiveCell.Offset(0, 1) = InputBox("  GENRE HOMME (H)/ FEMME (F) ")
    ActiveCell.Offset(0, 2) = InputBox(" DATE NAISSANCE au FORMAT JJ/MM/AA")
Loop
'
End Sub

A+

BRAVO

Excellent ! merci pour ta réponse

bonne soirée