insertion des lignes avec copie automatique des formules Excel 2003

Bonjour,

J'ai besoin d'aide! Je suis débutante en VBA et j'ai besoin de créer un macro qui permet d'insérer la ligne (où je souhaite) et copier les formules de la ligne précedente. Voici le macro qui permet d'insérer les lignes (qui est parfait pour moi) mais je n'arrive pas à ajouter la partie qui permet de coller les formules de la ligne précedente!

help!!!


Voici le macro:

Sub Insère()

ActiveCell.EntireRow.Insert
Rows(200).CopyRows (ActiveCell.Row)
On Error Resume Next
Rows(ActiveCell.Row).SpecialCells(xlCellTypeConstants, 23).ClearContents

Rows(ActiveCell.Row).Select
With Selection.Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0

End With

End Sub