Comparer plusieurs cellules (Excel)

Sub Rech()
Dim Cel As Range, CelComp As Range, i As Integer
Dim Plage As Range, B As Boolean
    Sheets("feuil1").Select
    i = 2
    Set Plage = Range("A1:F8")
    For Each Cel In Plage
        For Each CelComp In Plage
            If Cel = CelComp And Cel.Address <> CelComp.Address Then
                Cel.Interior.ColorIndex = i
                CelComp.Interior.ColorIndex = i
                B = True
            End If
        Next CelComp
        If B Then
            i = i + 1
            If i > 48 Then i = 1
            B = False
        End If
    Next Cel
End Sub