Comparaison de dates

Sub Macro1()

Dim Ligne As Integer
Dim Reponse As Integer

last_Ligne = Sheets("Décompte").Range("g1000").End(xlUp).Row

'J'ai l'impression que l'erreur vient de la ligne suivante ...
jour = Mid(Now, 1, 10)

For Ligne = 4 To last_Ligne
    If CDate(Cells(Ligne, 7)) = jour Then
    
        MsgBox "A priori, l'enregistrement éxiste déjà, voulez-vous continuer ?", vbYesNo, "ATTENTION"
        If Reponse = vbYes Then
            Range("g" & Ligne + 1) = Format(CDate(Date), "DD/MM/YYYY")
            Range("h" & Ligne + 1) = Range("e20").Value
        End If
        
        If Reponse = vbNo Then
            Exit Sub
        End If
    Else
            
    End If
Next
Range("g" & Ligne) = CDate(jour)
Range("h" & Ligne) = Range("e20").Value

End Sub

If CDate(Range("g" & Ligne).Value) = Date And Range("h" & Ligne) = Range("E20") Then