Condition qui ne fonctionne pas correctement

Private Sub BC_Save_Click()
If NomClt.Value = "" Then
        MsgBox "Veuillez indiquer le nom du client !", vbInformation + vbOKOnly
        Exit Sub
End If

Dim pages As Double
Dim MaRange As Range
Set MaRange = ThisWorkbook.Sheets("Stock").Range("C8")

If Not IsNumeric(CGR1) Then
MsgBox "La Valeur de la CGR1 n'est pas Numérique", vbCritical, "Erreur de saisie"
Exit Sub
End If
pages = MaRange
If pages <= CGR1 Then
MsgBox "Vous ne disposez pas du stock nécessaire pour le produit CGR1 !", vbCritical, "Erreur de saisie"
CGR1 = "0"
CGR1.SetFocus
Exit Sub
End If
 
    Sheets("BDD").Activate
    
    L = 2
    
    While Cells(L, 2) <> ""
    L = L + 1
    Wend
    
    Num_Fct = Cells(L, 1)
    
    If CGR1.Value + CGR5.Value + CGR10.Value + CT1.Value + CT5.Value + CT10.Value + CGA1.Value + CGA5.Value + CGA10.Value + AAP1.Value + AAP5.Value + AAP10.Value + AAC1.Value + AAC5.Value + FL1.Value + FL5.Value = 0 Then
        MsgBox "Une facture ne peut pas être égal à 0 !", vbCritical + vbOKOnly
    ElseIf CGR1.Value = "" Or CGR5.Value = "" Or CGR10.Value = "" Or CT1.Value = "" Or CT5.Value = "" Or CT10.Value = "" Or CGA1.Value = "" Or CGA5.Value = "" Or CGA10.Value = "" Or AAP1.Value = "" Or AAP5.Value = "" Or AAP10.Value = "" Or AAC1.Value = "" Or AAC5.Value = "" Or FL1.Value = "" Or FL5.Value = "" Then
        MsgBox "Une facture ne peut pas être vide ! Mettez 0 pour les produits non désirés !", vbCritical + vbOKOnly
    Else
       
    Cells(L, 2).Value = NomClt.Value
    Cells(L, 3).Value = Jour.Value
    Cells(L, 4).Value = CGR1.Value
    Cells(L, 5).Value = CGR5.Value
    Cells(L, 6).Value = CGR10.Value
    Cells(L, 7).Value = CT1.Value
    Cells(L, 8).Value = CT5.Value
    Cells(L, 9).Value = CT10.Value
    Cells(L, 10).Value = CGA1.Value
    Cells(L, 11).Value = CGA5.Value
    Cells(L, 12).Value = CGA10.Value
    Cells(L, 13).Value = AAP1.Value
    Cells(L, 14).Value = AAP5.Value
    Cells(L, 15).Value = AAP10.Value
    Cells(L, 16).Value = AAC1.Value
    Cells(L, 17).Value = AAC5.Value
    Cells(L, 18).Value = FL1.Value
    Cells(L, 19).Value = FL5.Value
    Cells(L, 20).Value = Paiement.Value
    Cells(L, 21).Value = ZT_R.Value
End If

Call Base

Call VerifB



End Sub