Transfère de formule

Bonjour,

Vaucluse m' à apporté une solution au problème que je vous ai soumis intitulé:
"Extraction de données multiples" le 27 août 20015, et je l'en remercie.

J'ai néanmoins un petit problème. Dans le dossier définitif, je saisi les données dans une autre feuille que celles ou elles sont enregistrées.
Après validation les dites données, s'accumule dans l'ordre d'enregistrement avec un numéro d'attribution.
Le petit problème, est lorsque j'ajoute une ligne de données selon la procédure d'écrite ci-dessus, l'enregistrement ne prend pas la formule qu'il m'a donné Pour info:
=SI(A2=$F$2;MAX($E$1:E1)+1;"")

N.B: Pour l'enregistrement j'utilise une macro dont voici le code:
Private Sub Transferer_Click()
Dim DerCel As Range
Worksheets("ENREGISTREMENT").Range("c3:h3").Copy 'Feuille ou je saisi les données
With Worksheets("DONNEENET") 'feuille on sont enregistrées les données
Set DerCel = .Range("A" & Rows.Count).End(xlUp)
DerCel.Offset(1) = Val(DerCel) + 1
.Range("B" & DerCel.Row + 1).Resize(1, 5).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With
End Sub

Si vous savez la solution j'en serai très heureux

Et comme je sent que vous allez me demander de voir le fichier, le voici.
https://www.cjoint.com/c/EHCoGyQ6p0i