Help !!! Noter un n° de reference en comparant 2 feuilles

Sub Comparaison()
    Dim tbl, Cel As Range, i As Long, a, b

    Application.ScreenUpdating = False
    
    tbl = Feuil7.UsedRange
    With Feuil2
        For i = 2 To UBound(tbl, 1)
            For Each Cel In .Range("A2:A" & .Range("B65536").End(xlUp).Row)
                a = Cel.Offset(, 1) & Cel.Offset(, 2) & Cel.Offset(, 3) & Cel.Offset(, 4) & Cel.Offset(, 5) & Cel.Offset(, 6) & Cel.Offset(, 7) & Cel.Offset(, 9)
                b = tbl(i, 2) & tbl(i, 3) & tbl(i, 4) & tbl(i, 5) & tbl(i, 6) & tbl(i, 7) & tbl(i, 8) & tbl(i, 10)
                If a = b Then
                    Cel = tbl(i, 1)
                    Exit For
                End If
            Next Cel
        Next i
    End With

    Application.ScreenUpdating = True

End Sub