Comparer lignes de 2 feuilles excel

Sub trier_factures()
Dim Dico1 As Object, Dico2 As Object, Tabl1, Tabl2, i As Long

Set Dico1 = CreateObject("Scripting.Dictionary")
Set Dico2 = CreateObject("Scripting.Dictionary")
With Sheets("Mois précédent")
    Tabl2 = .Range("A3", .Range("H" & Rows.Count).End(xlUp))
    For i = LBound(Tabl2) To UBound(Tabl2)
        If Not Dico1.Exists(Tabl2(i, 1)) Then Dico1.Add Tabl2(i, 1), Tabl2(i, 7)
    Next
End With

With Sheets("Extraction")
    Tabl1 = .Range("A3", .Range("A" & Rows.Count).End(xlUp))
    For i = LBound(Tabl1) To UBound(Tabl1)
        If Not Dico2.Exists(Tabl1(i, 1)) Then Dico2.Add Tabl1(i, 1), Tabl1(i, 1)
    Next
    For i = LBound(Tabl1) To UBound(Tabl1)
        If Not Dico1.Exists(Tabl1(i, 1)) Then
            .Range("A" & i + 2).Interior.ColorIndex = 36
        Else
            .Range("A" & i + 2).Interior.ColorIndex = 3
            .Range("I" & i + 2).Value = CDbl(Dico1.Item(Tabl1(i, 1))) - CDbl(.Range("G" & i + 2).Value)
        End If
    Next
End With

With Sheets("Mois précédent")
    For i = LBound(Tabl2) To UBound(Tabl2)
        If Not Dico2.Exists(Tabl2(i, 1)) Then
            .Range("A" & i + 2).Interior.ColorIndex = 35
        End If
    Next
End With
End Sub