Macro pour comparer 2 listes sous excel

Sub Compare2()
Dim Lig1 As Long, Derlig1 As Long, Derlig2 As Long, Cp As Variant
Dim Lig2 As Long
    Derlig1 = Sheets("Feuil1").Range("C65535").End(xlUp).Row
    Derlig2 = Sheets("feuil2").Range("C65535").End(xlUp).Row
    'Pour stopper à la dernière comparaison possible
    If Derlig2 < Derlig1 Then Derlig1 = Derlig2
    With Sheets("Feuil2")
        For Lig1 = 2 To Derlig1
            If Sheets("Feuil1").Cells(Lig1, "C") > .Cells(Lig1, "C") Then
                .Cells(Lig1, "C").Interior.ColorIndex = 4
            End If
        Next Lig1
    End With
End Sub

Sub Compare3()
Dim Lig1 As Long, Derlig1 As Long, Derlig2 As Long, Cp As Variant
Dim Lig2 As Long, FR1 As Worksheet, FR2 As Worksheet
    Set FR1 = Sheets("Feuil1")
    Set FR2 = Sheets("Feuil2")
    Derlig1 = FR1.Range("B65535").End(xlUp).Row
    Derlig2 = FR2.Range("B65535").End(xlUp).Row
    For Lig1 = 2 To Derlig1
        Cp = FR1.Cells(Lig1, "B")
        For Lig2 = 2 To Derlig2
            If Cp = FR2.Cells(Lig2, "B") Then
                If FR1.Cells(Lig1, "C") > FR2.Cells(Lig2, "C") Then
                    FR2.Cells(Lig2, "C").Interior.ColorIndex = 3
                ElseIf FR1.Cells(Lig1, "C") < FR2.Cells(Lig2, "C") Then
                    FR2.Cells(Lig2, "C").Interior.ColorIndex = 4
                Else
                    FR2.Cells(Lig2, "C").Interior.ColorIndex = xlNone
                End If
                Exit For
            End If
        Next Lig2
    Next Lig1
End Sub

Sub somme()
Dim Lig As Long, FR As Worksheet
Dim Rouge As Integer, Vert As Integer, Gris As Integer
    Set FR = Sheets("SAP") 'adapter le nom de la feuille
    For Lig = 1 To FR.Range("C65535").End(xlUp).Row
        Select Case FR.Cells(Lig, 3).Interior.ColorIndex
        Case 3: Rouge = Rouge + 1
        Case 4: Vert = Vert + 1
        Case 15: Gris = Gris + 1
        End Select
    Next Lig
    MsgBox "Le nombre de cellule(s)..." & Chr(13) _
        & "Rouge = " & Rouge & Chr(13) _
        & "Vert = " & Vert & Chr(13) _
        & "Gris = " & Gris
End Sub

Public Function NbCouleurCell(Couleur As Integer) As Long 
Dim Lig As Long
    Application.Volatile 
    For Lig = 1 To Range("C65535").End(xlUp).Row 
        If Cells(Lig, 3).Interior.ColorIndex = Couleur Then NbCouleurCell = NbCouleurCell + 1 
    Next Lig 
End Function

    =NbCouleurCell(3) ' pour le rouge