Bonjour,
Voici une solution qui peut faire l'affaire, la tester et me demander des modifications au cas ou;
Amicalement
JYLL
Sub Interrogation()
Dim Questions(15) As String
Dim Réponses(15) As String
Questions(1) = 'question 1'
Questions(2) = 'question 2'
For i = 1 To 15
Réponses(i) = InputBox(Questions(i), 'Saisie')
Cells(i, 1) = Réponses(i)
Next i
End Sub