XL 2013 code vba qui donne un resultat different de ce qui est attendu !

Public Sub Compar()
Dim DL As Integer
Dim TV1 As Variant
Dim TV2 As Variant
Dim I As Integer
Dim J As Byte
Dim DEST As Range

DL = Cells(Application.Rows.Count, 1).End(xlUp).Row
TV1 = Range("A3:E" & DL)
TV2 = Range("G3:K" & DL)
For I = 3 To UBound(TV1, 1)
    For J = 1 To UBound(TV1, 2)
        If TV1(I, J) <> TV2(I, J) Then
            Set DEST = Cells(Application.Rows.Count, 16).End(xlUp).Offset(1, -2)
            DEST.Value = TV1(I, 1)
            DEST.Offset(0, 1).Value = TV1(I, 2)
            DEST.Offset(0, 2).Value = "Ranking"
            DEST.Offset(0, 3).Value = "Old Rank: " & TV1(I, 5) & ", New Rank: " & TV2(I, 5)
            DEST.Offset(1, 2).Value = "Features"
            DEST.Offset(1, 3).Value = "Old Feature: " & TV1(I, 3) & ", New Feature: " & TV2(I, 3)
            Exit For
        End If
    Next J
Next I
End Sub