Problème changement d'onglet dans une macro

Bonjour à toutes et à tous,


J'ai une macro me permettant d'archiver une ligne depuis un onglet vers un autre lors d'un clique sur un bouton et elle marche très bien. Cependant, je souhaite rajouter une fonction (visible en gras dans la macro) me permettant de rajouter la date d'archivage lors de l'archivage et cela, dans la dernière cellule de la ligne (colonne E), cette commande marche mais inscrit la date sur l'onglet de départ et non sur celui d'archivage !
Avis donc à ceux qui pourront m'aider !
Je vous remercie d'avance et vous souhaite une bonne fin de journée.


Voici ma macro :


Private Sub Archiver_Click()
Application.ScreenUpdating = False
Dim derlig As Integer, pos As Integer
'Enlever protection
Worksheets("Archives").Unprotect "arch"
If ActiveCell.Column < 8 Then 'selection colonne A a G
'ligne de selection
pos = ActiveCell.Row
With Worksheets("Archives")
'premiere cellule vide colonne A
derlig = .Range("A" & Rows.Count).End(xlUp).Row + 1
'copie des donnees
Range("A" & pos & ":G" & pos).Copy .Range("A" & derlig)
End With
'suppression ligne
Rows(pos).Delete
End If
With Worksheets("Archives")
Range("E" & Rows.Count).End(xlUp) = Date
End With
'Mettre protection
Worksheets("Archives").Protect "arch", True, True, True
Application.ScreenUpdating = True
End Sub