insertion ligne automatique avec formules

Bonjour,

je suis novice en la matiere et j'ai besoin de votre aide
j ai trouve une formule qui me permet d'insérer automatiquement une nouvelle ligne sur mon tableau dés que j'arrive juste avant ma cellule que j'ai renommé "CelluleApresTableau".

ex: A / b / c
1 A1
2 A2
3 A3
4 Celluleaprestableau

Dés que j'arrive a A3 il insère une nouvelle ligne.
Cela me va bien sauf que je voudrai qu'il conserve les formules existante (rechercheV, somme,.....)

Voici la formule

Private Sub Worksheet_Change(ByVal Target As Range)
' teste si la cellule juste au dessus est remplie
If Range("CelluleApresTableau").Offset(-1) <> "" Then
' ajoute une ligne - la ligne s'insère au dessus
Application.EnableEvents = False ' pour ne pas se mordre la queue
Range("CelluleApresTableau").EntireRow.Insert xlShiftDown
Application.EnableEvents = True
End If
End Sub

merci de m'aider à trouver une solution.