Evolution d'une macro de saisi de valeur

Bonjour à tous,

J'aimerai faire évoluer un bout de code vba trouvé sur le net pour l'adapter à mon besoins.

Je m'explique, le code actuel permet après le lancement d'un message de saisir une donnée et de l'incrémenter dans une cellule spécifique. Si la cellule est déjà prise la valeur va en dessous.

Je voudrai pouvoir en suivant le même principe saisir plusieurs valeur de suite sans devoir dupliqué autant de fois le code.

ex : j'ai questionné 5 personne je demande donc de mettre en a1 le nombre de personne ayant répondu à la question 1, en A2 le nombre ayant répondu à la question 2..... ainsi de suite.

je post le code en esperant que ça parle à quelqu'un.

Private Sub CommandButton3_Click()
Mesure = InputBox(prompt:="Question 1-1: nombre d'audité")
If Mesure = "" Then
Exit Sub
Else
Range("B10:").Select
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell = Mesure
End If

Mesure = InputBox(prompt:="Question 2-1: nombre d'audité")
If Mesure = "" Then
Exit Sub
Else
Range("B16").Select
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell = Mesure
End If

End Sub


Merci ^^