[JYLL]

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