Comparer des dates

Sub Macro1()
Dim C As Worksheet 'déclare la variable C (onglet Consomation)
Dim VA As Worksheet 'déclare la variable VA (onglet VOITURE AVANT )
Dim TC As Variant 'déclare la variable TC (Tableau Consomation)
Dim TVA As Variant 'déclare la variable TVA (Tableau Voiture Avant)
Dim I As Integer 'déclare la variable I (Incrément)
Dim J As Integer 'déclare la variable J (incrément)
Dim K As Byte 'déclare la variable K (incrément)
Dim T As Double 'déclare la variable T (Total)
Dim N As Integer 'déclare la variable N (Nombre)

Set C = Worksheets("consomation") 'définit l'onglet C
Set VA = Worksheets("VOITURE AVANT ") 'définit l'onglet AV
TC = C.Range("A1").CurrentRegion 'définit le tableau TC
TVA = VA.Range("A1").CurrentRegion 'définit le tableau TVA
For I = 2 To UBound(TVA, 1) 'boucle 1 : sur toutes les lignes I du tableau TVA (en partant de la seconde)
    For J = 2 To UBound(TC, 1) 'boucle 2 : sur toutes les lignes J du tableau TC (en partant de la seconde)
        'condition : si les numéros et les dates correspondent (en colonne 2 pour les date de TVA)
        If TVA(I, 1) = TC(J, 1) And TVA(I, 2) = TC(J, 2) Then
            For K = J To J + 9 'boucle 3 : sur 10 lignes à partir de J
                'si le numéros correspondent, ajoute la consommation de chaque ligne, définit le nombre N
                If TVA(I, 1) = TC(K, 1) Then T = T + TC(K, 3): N = N + 1
            Next K 'prochaine ligne de la boucle 3
            TVA(I, 4) = T / N 'renvoie dans la donnée ligne I colonne 4 de TVA la moyenne du total par le nombre
        End If 'fin de la condition
        T = 0: N = 0 'réinitialise les variable T et N
        'condition : si les numéros et les dates correspondent (en colonne 3 les dates de pour TVA)
        If TVA(I, 1) = TC(J, 1) And TVA(I, 3) = TC(J, 2) Then
            For K = J - 9 To J 'boucle 4 : sur 10 lignes de J-9 à J
                'si le numéros correspondent, ajoute la consommation de chaque ligne, définit le nombre N
                If TVA(I, 1) = TC(K, 1) Then T = T + TC(K, 3): N = N + 1
            Next K 'prochaine ligne de la boucle 4
            TVA(I, 5) = T / N 'renvoie dans la donnée ligne I colonne 5 de TVA la moyenne du total par le nombre
        End If 'fin de la condition
    Next J 'prochaine ligne de la boucle 2
Next I 'prochaine ligne de la boucle 1
VA.Range("A1").CurrentRegion.ClearContents 'efface le contenu des valeurs de l'onglet VA
VA.Range("A1").Resize(UBound(TVA, 1), UBound(TVA, 2)).Value = TVA 'renvoie le tableau TVA dans A1 redimensionnée de l'onget VA
End Sub