VBA - Copier/coller d'une ligne dont une cellule a été modifiée

Bonjour à tous,

J'ai un fichier excel qui me sert de BDD et je cherche à faire passer des lignes automatiquement d'un onglet actif à un onglet d'archives lorsque l'action de cette ligne est faite ou annulée pour rendre mon fichier plus ergonomique.

DG1 est mon onglet "actif"
DG1 archives, mon onglet d'archivage
Dans ma colonne S de DG1, on met le statut de l'action: "closed", "cancelled", "on going".
Je souhaite dans un premier temps, que dès qu'un utilisateur entre cancelled dans cette colonne, la ligne concernée disparaisse de DG1 et soit copiée dans DG1 archives.

J'ai fait une macro avec mes connaissances basiques et en recherchant sur le forum, mais je bloque: Ma macro marche pour la 1ere fois qu'on passe une action cancelled, mais ensuite me dit que la méthode Range a échoué. En fait, ma ligne DG1 reste copiée et j'arrive à refaire tourner la macro seulement si je "désélectionne" la copie.
La ligne modifiée (quand ça marche!) est bien copiée dans l'onglet DG1 archives dans la 1ere ligne vide mais si j'arrive à faire tourner ma macro deux fois, ça recopie toujours dans la même ligne sans passer à la suivante.

Voilà mon code, ne vous fachez pas je suis débutante ;-)

Private Sub Worksheet_Change(ByVal Target As Range)

Dim KeyCells As Range

Set KeyCells = Range("S3:S65536")

If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
If Range(Target.Address) = "Cancelled" Then
Range(Cells(Target.Row, 1), Cells(Target.Row, 22)).Select
Selection.Copy
Sheets("DG1 archives").Activate
Worksheets("DG1 archives").Range("A" & Rows.Count).End(xlUp).Offset(1).Select '
Worksheets("DG1 archives").Paste
End If
End If

End Sub


Merci à ceux qui auront le temps de m'apporter leur soutien !