Pb : Macro archivage et date du jour

Bonjour à toutes et à tous,

J'ai un petit soucis sur mon fichier excel me servant à lister puis archiver mes tâches.

Une macro me permet de sélectionner une ligne depuis un tableau puis de la couper/coller sur une autre feuille appelée "archives".
Cette fonction marche trés bien cependant, j'aimerais que la macro inscrive en même temps la date du jour sur la même ligne, en colonne "E".

J'éspère être asser clair, voici la macro que j'ai réalisé, la partie en gras devrait mettre la date à l'endroit souhaité mais, rien ne se passe !


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)
'premiere cellule vide colonne E
derlig = .Range("E" & Rows.Count).End(xlUp).Row + 1
'Date d'archivage
Range("E" & pos & ":G" & pos).Value = Format(Now, "dd.m.yyyy")
End With
'suppression ligne
Rows(pos).Delete
End If
'Mettre protection
Worksheets("Archives").Protect "arch", True, True, True
Application.ScreenUpdating = True
End Sub

Merci d'avance à ceux qui pourront m'aider et bonne journée :-)