Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call ErreurDepart
End Sub
Sub ErreurDepart()
Dim NumLigne As Integer
Dim m As Integer
For NumLigne = 9 To Range("J65536").End(xlUp).Row
For m = 9 To Range("J65536").End(xlUp).Row
If Range("J" & NumLigne).Value <> 0 And Range("M" & m).Value = "#N/A" Then
MsgBox ("Il y a une erreur dans l'heure de départ dans la cellule J" & NumLigne)
Else: ThisWorkbook.Save
End If
Next m
Next NumLigne
Exit Sub
End Sub