Sub verifReponse()
Dim cell As Range, newrep As Boolean
newrep = True
While newrep = True
newrep = False
For Each cell In ActiveSheet.Range("reponse")
If cell.Value = "" Then
cell.Value = InputBox("Vous n'avez pas répondu à la question " & cell.Offset(0, -2) & Chr(10) & cell.Offset(0, -1))
newrep = True
End If
Next cell
Wend
End Sub