Sub Macro51()
Dim X As Range, k As Long, Rep As String
With Sheets("Saisie")
For Each X In .Range("F14:" & .Range("F65536").End(xlUp).Address)
If X.Offset(0, 0) = "" Or X.Offset(0, 1) = "" Then
Rep = Rep & X.Row & vbCrLf
k = k + 1
End If
Next
If Rep <> "" Then MsgBox "Pas Bien, Saisir les données dans la (les) ligne(s) :" & vbCrLf & Rep
If k = 0 Then MsgBox "Bien"
End With
End Sub