copie ligne

bonjour,

Dans la macros suivante je compare 2 classeurs selon les element des cellules dans les colonnes i. En cas de valeurs idem je prends la valeur de la cellule i,14 soit z2 du premier classeur que je reporte dans la cellule i,15 du second.Je souhaite remplacer la valeur z2 par la ligne complete?

Sub comparatif()
'Dim i&, z1$, Y As Boolean, c
derligne = Range("i20000").End(xlUp).Row
With Workbooks("prixtest.xls").Sheets(1).Range("i1:i" & derligne)


Workbooks("prixtest2.xls").Activate
derligne = Range("i20000").End(xlUp).Row
For Each o In Workbooks("prixtest2.xls").Sheets(1).Range("i1:i" & derligne)
i = o.Row
z1 = o.Value
z2 = Cells(i, 14).Value
Set c = .Find(z1, LookIn:=xlValues, Lookat:=xlWhole)
If Not c Is Nothing Then
firstrow = c.Row
Do
Y = True
If (Y) Then

Workbooks("prixtest2.xls").Sheets(2).Cells(firstrow, 15) = z2
End If
Y = False
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Row <> firstrow
firstrow = ""
Else

End If
Next
End With
End Sub
merci d'avance pour votre aide