Archivage de ligne excel

Il faudrait par exemple avec un case à cocher et payer sur le bouton « archiver » et la ligne ce copie et non ce copier dans la feuille archive. Et que je puisse remodifier la ligne initial sans modifier celle de l’an feuille archives.
J’espère que c’est plus claire.

Pour que la macro suivante fonctionne, il faut :
- tu rajoutes une colonne en A dans laquelle tu mettras X ou rien selon si tu veux copier
- tu as ajouté une feuille "Archive"

sub archivage ()

dim ligneorigine, lignefinale as variant

ligneorigine = 6
lignefinale = 6

'boucle qui va chercher la première ligne dispo dans ta feuille archivage
do while sheets("Archivage").cells(lignefinale,1) <> ""
lignefinale = lignefinale+1
loop

' remplace Mettrelenomdetafeuilledetravail par le nom de ta feuille
'j'ai mis 2 mais mets le chiffre de colonne dans laquelle tu as toujours une donnée

do while sheets("Mettrelenomdetafeuilledetravail").cells(ligneorigine,2) <> ""

'si en A, tu as une X, cela va la copier dans archivage et la supprimer
if cells(ligneorigine,1) = "X" then
range(cells(ligneorigine,2),cells(ligneorigine,60)).copy sheets("Archivage").cells(lignefinale,1)

Rows(ligneorigine).Delete Shift:=xlUp
ligneorigine = ligneorigine-1

lignefinale = lignefinale +1
end if

ligneorigine = ligneorigine+1
loop

end sub

Je ne comprends pas ce ne fonctionne pas. Ca me surligne des ligne de code

Pourrais-tu donner ton fichier, ce serait plus simple stp