Sub TestLigneMalRemplie()
Dim L&, i&, Q&, ZZ& 'déclaration des variables
L = Range("B" & Rows.Count).End(xlUp).Row
For i = 7 To L
If Cells(i, "B") <> "" And Cells(i, "D") = "" Or Cells(i, "E") = "" Or Cells(i, "F") = "" Or Cells(i, "G") = "" Or Cells(i, "H") = "" Then
MsgBox ("Veuillez remplir toutes les informations telles :" & vbNewLine & "Date de début" & vbNewLine & "Heure de début")
Exit Sub
End If
Next
End Sub