Je ne te suis pas tres bien.
A mon avis il te faut un compteur de ligne a traiter (nbval (x;x) pouis faire une boucle de traitement
Style
Sub mamacro ()
'Declarer la variable nombre de ligne a traité
Sheets ('traitement').select
Nbligne = Cells (1,'a')
Compteur = 1
While Compteur < nbligne +1
If cells(Compteur,x).value = '512' then
cells (y;y).value = cells (x,y).value
cells (y;Z).value = cells (x,Z).value
Compteur = Compteur + 1
Else
Compteur = compteur +1
End If
Wend
End sub
Wend