Aide sur unee macro, erreur mais pk

Bonjour,
j ai developpe cette macro qui permet confronter deux tableaux avec plus ou moins les mm refferences etc en me creant un troisieme tableau qui met sur la mm lignes les caracteristique (qui different d une annee a l autre) d une mm reference mais cela bug

Sub testcompare()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim ws3 As Worksheet
Dim i1
Dim i2
Dim i3
Dim k
Dim kk
Dim z
Dim maxRow1 As Integer
Dim maxRow2 As Integer


Set ws1 = Worksheets(1)
Set ws2 = Worksheets(2)
Set ws3 = Worksheets(3)

maxRow1 = ws1.ActiveSheet.UsedRange.Rows.Count
maxRow2 = ws2.ActiveSheet.UsedRange.Rows.Count
i1 = ws1.Range("A1").End("4").Row
i2 = ws2.Range("A1").End("4").Row
With ws1
For k = 1 To maxRow1
z = .Range("A" & k)
For kk = 1 To maxRow2
If z = ws2.Range("A" & kk) Then
ws3.Range("A" & i3 + 1) = z
ws3.Range("B" & i3 + 1) = .Range("B" & k)
ws3.Range("C" & i3 + 1) = .Range("C" & k)
ws3.Range("D" & i3 + 1) = .Range("D" & k)
ws3.Range("E" & i3 + 1) = .Range("E" & k)
ws3.Range("F" & i3 + 1) = .Range("F" & k)
ws3.Range("G" & i3 + 1) = ws2.Range("B" & kk)
ws3.Range("H" & i3 + 1) = ws2.Range("C" & kk)
ws3.Range("I" & i3 + 1) = ws2.Range("D" & kk)
ws3.Range("J" & i3 + 1) = ws2.Range("E" & kk)
ws3.Range("K" & i3 + 1) = ws2.Range("F" & kk)
i3 = i3 + 1
End If
Next
Next
End With
End Sub

de plus si on enleve tout ce qui a attrait au maxRow le code est fonctionnel mais ne me donne pas en fin de tableau les reference unique... quelau un aurait il une solution ??