[fred65200]

bonsoir,

j'ai un peu modifié le code de cyrol

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"
      Exit For
   End If
Next cellule_à_remplir

End Sub

cordialement