XL 2019 Message d'erreur si cellules vides

Sub EFFACER() ' Efface toute la colonne de E9 à la cellule FIN
    Range("E9:E" & [FIN].Row - 1).ClearContents
End Sub

Function VerifSiRempli(x)
    Dim L%, PasFini: L = 9:  PasFini = 0
    For L = 9 To [FIN].Row - 1
        If (Cells(L, "A") <> "" Or Cells(L, "B") <> "") And Cells(L, "E") <> "OK" Then
            PasFini = 1: Exit For
        End If
    Next L
    If PasFini = 1 Then VerifSiRempli = 0 Else VerifSiRempli = 1
End Function

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If VerifSiRempli(0) = 0 Then
        Cancel = True
        MsgBox " Certaines lignes ne sont pas renseignées avec OK."
        Exit Sub
    Else
        Cancel = False
        ActiveWorkbook.Save
    End If
End Sub

Dim Chemin As String, NomFichier As String
' Verif si tout est ok avant l'export.
 If VerifSiRempli(0) = 0 Then MsgBox " Demande rejetée." & Chr(10) & "Certaines lignes ne sont pas renseignées avec OK.": Exit Sub
.... suite comme avant

 If [E6] = "" Then MsgBox "Validation impossible." & Chr(10) & "Le N° de produit doit être renseigné.": Exit Sub
 If Range("A" & [FIN].Row + 1) = "" Then MsgBox "Validation impossible." & Chr(10) & "Un nom doit être choisi dans la liste.": Exit Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    DL = [FIN].Row - 1
     If Not Intersect(Target, Range("E9:E" & DL)) Is Nothing Then
        Target.Interior.Color = vbGreen
        Target.Value = IIf(Target.Value = "OK", "", "OK")
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("E9:E" & [Fin].Row - 1)) Is Nothing Then
        Target.Value = IIf(Target.Value = "OK", "", "OK")
        Cells(Target.Row, Target.Column + 1).Select
    End If
End Sub