Sub erreur()
Dim cellule_à_remplir As Range
For Each cellule_à_remplir In Range("B1:B9")
If IsEmpty(cellule_à_remplir) Then
MsgBox "Veuillez répondre à toutes les questions", 16, "Erreur de saisie"
[B]Exit For[/B]
End If
Next cellule_à_remplir
End Sub