Macro Déplacement lignes dans un autre onglet

Bonjour à tous,

J'utilise un fichier excel pour la gestion de projet et j'utilise une macro (s'activant via un bouton) me permettant de déplacer les taches dites "Cloturés" dans un autre onglet.
De ce fait je peux archiver les taches obsolètes dans l'onglet archives via le button "ARCHIVER"

Voici la macro que j'utilise :

Sub Macro1()
Dim SUI As Worksheet 'déclare la variable SUI (Onglet suivi)
Dim OLD As Worksheet 'déclare la variable OLD (Onglet old)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Long 'déclare la variable I (Incrément)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)

Set SUI = Sheets("suivi") 'définit l'onglet SUI
Set OLD = Sheets("old") 'définit l'onglet OLD
TV = SUI.Range("A6").CurrentRegion 'définit le tableau de valeurs TV (de la ligne 6 à la dernière)
For I = UBound(TV, 1) To 2 Step -1 'boucle inversée de la dernière à la seconde du tableau de valeurs TV
If TV(I, 4) = "Cloturé" Then 'condition si les valeurs ligne I, colonne 4 valent "Cloturé"
Set DEST = OLD.Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0) 'définit la cellule de destination DEST
SUI.Rows(I + 3).Copy DEST 'copie la ligne I+3 et la colle dans DEST
SUI.Rows(I + 3).Delete 'supprime la ligne I+3
End If 'fin de la condition
Next I 'prochaine ligne de la boucle
End Sub

Les durées en cours et finale sont calculés de la façon suivant :

=SI(ESTVIDE([@[Date Reception]]);"";NB.JOURS.OUVRES([@[Date Reception]];$B$2;DATA!$E$1:$E$10))
B2 est la date du jour et E1:E10 est un tableau des jours fériés sur l'année.

Quand j'applique la Macro, les lignes correspondant à une tache "cloturé" sont bien déplacées dans l'onglet "Archive" mais les durées ne sont plus bien calculées :

Voilà ce que l'on retrouve en Cellule E3 : =SI(ESTVIDE(Tableau1[@[Date Reception]]);"";NB.JOURS.OUVRES(Tableau1[@[Date Reception]];$B$2;DATA!$E$1:$E$10))

Je ne comprend pas pourquoi la cellule ne garde pas le nombre de jour ouvré.

Merci pour votre aide ! Je suis perdu :)

Bonne journée à vous tous.

Finalement j'ai trouvé,

Désolé du dérangement. Il suffit d'écrire A5 à la plage de @Date de réception.

Cordialement,