'.../...
For k = 9 To 17
If Cells(k, 5) = "" Then Resultat = Resultat & Cells(k, 5).Address & vbCrLf
Next
If Resultat <> "" Then
MsgBox "Manque les données dans la / les cellule(s) suivante(s) :" & vbCrLf & Resultat, vbCritical, "Erreur :"
Exit Sub
Else
' ta macro
End If
End Sub