Sub Bouton1_QuandClic()
Dim i As Byte
Dim cellule As Range
Dim t As String, réponse As String
For i = 1 To 3
Select Case i
Case 1: t = 'Quel nom ?'
Set cellule = Range('a1')
Case 2: t = 'Quel prénom ?'
Set cellule = Range('a2')
Case 3: t = 'Quel age ?'
Set cellule = Range('a3')
End Select
'si tu veux forcer l'utilisateur à répondre utilise les 2 lignes passées en commentaires
'Do While reponse = ''
reponse = InputBox(t, 'Demande')
cellule = reponse
'Loop
reponse = ''
Next i
End Sub