XL 2010 Code VBA qui bloque la sauvegarde si certaines cellules sont vides

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Application.ScreenUpdating = False
    DL = Range("A65500").End(xlUp).Row
    For L = 6 To DL - 2 ' pas d'analyse sur les deux dernières lignes
        If Val(Cells(L, "T")) > 0 Then
            If Cells(L, "E") = "" Or Cells(L, "F") = "" Or Cells(L, "M") = "" Or Cells(L, "N") = "" Then
                MsgBox "Une ou plusisurs lignes sont incomplètes." & Chr(10) & Chr(10) & _
                        "Enregistrement impossible."
                Cancel = True
                Exit Sub
            End If
        End If
    Next L
End Sub

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)

    If Not ThisWorkbook.Saved Then
        Select Case MsgBox("Voulez-vous sauvegarder ce classeur", vbQuestion + vbYesNoCancel)
        Case vbCancel:  Cancel = True
        Case vbNo:      ThisWorkbook.Saved = True
        Case vbYes
            ThisWorkbook.Save
            If Not ThisWorkbook.Saved Then Cancel = True
        End Select
    End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Zone    As Range
Dim C       As Variant
Dim Msg     As String

    Worksheets("Trafic").Activate
    
    For Each Zone In Range("A6:T" & Range("A" & Rows.Count).End(xlUp).Row - 2).Rows
        If Val(Zone.Columns("T")) > 0 Then
            For Each C In Array("E", "F", "M", "N")
                If Zone.Columns(C) = "" Then
                    Msg = Msg & vbLf & "ligne " & Zone.Row & " incomplète"
                    Exit For
                End If
            Next
        End If
    Next
    
    If Msg <> "" Then
        MsgBox "Sauvegarde abandonnée" & vbLf & Msg, vbCritical
        Cancel = True
    End If

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    If Not ThisWorkbook.Saved Then
        Select Case MsgBox("Voulez-vous sauvegarder ce classeur", vbQuestion + vbYesNoCancel)
        Case vbCancel:  Cancel = True
        Case vbNo:      ThisWorkbook.Saved = True
        Case vbYes
            ThisWorkbook.Save
            If Not ThisWorkbook.Saved Then Cancel = True
        End Select
    End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Zone    As Range
Dim C       As Variant
Dim Msg     As String

    Worksheets("Trafic").Activate
    
    For Each Zone In Range("A6:T" & Range("A" & Rows.Count).End(xlUp).Row).Rows
        If Zone.Interior.ColorIndex = xlNone And Val(Zone.Columns("T")) > 0 Then
            For Each C In Array("E", "F", "M", "N")
                If Zone.Columns(C) = "" Then
                    Msg = Msg & vbLf & "ligne " & Zone.Row & " incomplète"
                    Exit For
                End If
            Next
        End If
    Next
    
    If Msg <> "" Then
        MsgBox "Sauvegarde abandonnée" & vbLf & Msg, vbCritical
        Cancel = True
    End If

End Sub