Erreur 1004 sur une code VB

Bonjour a tous,

Je suis nouveau dans le monde du VB et pour ainsi dire je n'y connais rien...
Je cherche a écrire un code pour réaliser ceci:
J'ai deux plages de données sur une même feuille de calcul. Chaque ligne de ma plage de données 1 (qui va de la ligne 1 a 2053) a une ligne qui lui correspond dans le plage de données 2 (lignes 2069 a 4441). Le point commun entre ces ligne est un numéro de client. Je cherche donc a coller a la suite de la ligne i de la plage 1 la ligne j de la plage 2 ayant le même numéro client. (je ne sais pas si c'est clair mais je peux préciser si vous voulez)

Voici le code que j'ai tape et qui ne marche pas:

Sub SupprimerLignes()
Const LigneDebut = 1 ' entre 1 et 65536 pour Excel 2003
Const LigneFin = 2053 ' entre 1 et 65536 pour Excel 2003
Const LigneDebut2 = 2069
Const LigneFin2 = 4441
Const ColonneEquiptype = 4 ' entre 1 et 255 pour Excel 2003
Const ColonneEquitype2 = 1
For i = LigneFin To LigneDebut Step -1
Dim j As Integer
j = 4441
While Cells(i, ColonneEquitype) = Cells(j, ColonneEquitype2)
j = j - 1
Wend
Range("j:j").Copy
Range("i,Ki:ABi").Paste
Next i
End Sub

Merci d'avance

Configuration: Windows XP
Firefox 3.5.2