Comment freezer la valeur d'une cellule a un moment donné?

Bonjour,

je chercherais a trouver un moyen pour conserver la valeur d'une cellule a un moment donné.

Soit par un copié / coller valeur
Soit par une formule/fonction VBA.

1) Ma solution par un code

Sub WORKSHEET_SELECTIONCHANGE(ByVal Target As Range)

'V confirme action sur la ligne

If Range("BQ:BQ") = "v" Then

RC [-37].Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
RC [-42].Select
ActiveCell.Paste

RC [-35].Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

RC [-36].Select
ActiveCell.Paste

End Sub

2) Solution par une Fonction

Function E(D As Variant, Ope As Variant)

If D = Ope Then

ActiveCell = D
[RC].Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Paste

End If
End Function

Pour la fonction il faudrait qu'elle s'autofreeze par elle meme. Cela est il possible? Donc la fonction disparaitrait de la cellule pour laisser une valeur.

Ces codes sont des ébauches. Si quelqu'un pourrait m'aider a les rendre fonctionnel. Cela me serait d'un grand secours.