Aide pour macro excell

Bonjour,
J'ai réussit a faire fonctionner une macro pour tranférer une cellule d'une 1er page sur une 2 em page et que su j'inscrit une nouvelle saisie dans cette cellule il me la transfère sur la 2 em page aussi, mais une colonne a coté a chaque que je fais une nouvelle saisie sur une cellule de la 1er page
Mon problème est que je ne veux pas seulement tranféré les saisies de nombre, mais aussi des résultats de formule comme add et soustraction
je pourrais faire des référence de cellule sur la 2 em feuille (sa fonctionne) mais mon tableau est infiniment grand et trop complexe a faire tout ces références
voici ma macro utilisé :
Const F2 = "Compilation", F1 = "Analyse"
Const pls = 1 'première ligne de saisie dans la feuille 1
Const dls = 5 'dernière ligne de saisie dans la feuille 1
Const cols = 1 'colonne de saisie dans le feuille 1 (1 pour colonne A)
Const pld = 1 '1ère ligne à renseigner dans la feuille 2
'par exemple si lign_dep = 3, la ligne 3 de la feuille 2 correspondra à la
'la ligne pls de la feuille A
Const cold = 1 '1ère colonne à renseigner dans la feuille 2 (3 pour C)


'La macro se déclanche à chaque saisie dans la colonne A de la Feuille 1
Private Sub Worksheet_Change(ByVal Target As Range)
'
ligne = Target.Row ' ligne de la cellule où on vient d'effectuer une saisie
If ligne < pls Or ligne > dls Then Exit Sub 'test si le ligne est entre pls et dls
colonne = Target.Column ' colonne dans la quelle on vien d'effectuer une saisie
If colonne <> cols Then Exit Sub 'si la colonne est différente de la colonne
'définie pour la saisie dans les constantes on sort de la macro
'
'si la première colonne de destination est vide, on la remplit
If Sheets(F2).Cells(ligne - pls + pld, cold) = Empty Then col_cop = cold: GoTo copie_cellule
'
'on va rechercher dans la feuille 2 la première cellule vide
'après les saisies précédentes
For n = cold To 255: test = Sheets("Analyse").Range("A1"): If Sheets(F2).Cells(ligne - pls + pld, n) = Empty Then col_cop = n: Exit For
Next

'
copie_cellule: ' on reporte la valeur saisie dans la feuille 1 vers la nouvelle cellule de la feuille 2
Sheets(F2).Cells(ligne - pls + pld, col_cop) = Sheets(F1).Cells(ligne, cols)
End Sub
merci pour vos judicieux conseil pipo !!!!!