Sub Bouton1_QuandClic()
Dim question() As Variant
Dim donnees As String, donnees2 As String
Dim i As Byte
question = Array('nom :', 'prénom :')
For i = 0 To 1
donnees = Application.InputBox('Merci de préciser le ' & question(i), Type:=2)
donnees2 = donnees2 & ' ' & donnees
Next i
MsgBox donnees2
End Sub