Sub Verif_Fiche()
Dim Premiere_Ligne As Boolean
If [B4] = "" Or [B6] = "" Or [B8] = "" Or [B10] = "" Or _
[I10] = "" Or [J12] = "" Or [B14] = "" Or [B16] = "" Or _
[E14] = "" Or [E16] = "" Then
MsgBox ("Les zones indiquées (*) doivent être renseignées")
Exit Sub
End If
............