Conserver les doublons

Bonjour,

Je me suis servi de cette macro (j'ai oublié l'auteur, je suis désolé):

Sub test()
For i = 1 To Range("A65536").End(xlUp).Row
nom = Cells(i, 1)
For y = 1 To Range("A65536").End(xlUp).Row
If nom = Cells(y, 1) Then
cpt = cpt + 1
End If
Next y
If cpt < 2 Then
For z = 1 To Range("A65536").End(xlUp).Row
If Cells(z, 1) = nom Then
Rows(z).Select
Selection.Delete Shift:=xlUp
i = i - 1
End If
Next z
End If
cpt = 0
Next i
End Sub

Elle fonctionne très bien pour moi bien qu'elle conserve les doublons de la colonne A. Or mes données de références sont en Z. Je dois donc couper-coller, appliquer la macro puis recouper-coller. Ce n'est pas si long mais je suppose qu'il doit bien y avoir une autre solution.
Merci d'avance
Paseg