effacer cellule mais pas formule

Bonjour à tous
j'ai fait cette macro en vue de réinitialiser un classeur en fin d'annee, en vue dans redemerer une

Sub effacerexercice()
'
' effacerexercice Macro
' Macro enregistrée le 08/10/2010 par pm
'

'

Dim marep As Long
marep = MsgBox("Avez vous sauvegardé l'exercice?", vbYesNo)

If marep = vbYes Then
Selection.ClearContents
Sheets("Registre Banque").Select
Range("A4:I65000").Select
Selection.ClearContents
Sheets("Registre Caisse").Select
Range("A4:I65000").Select
Selection.ClearContents
Sheets("Livre Recettes").Select
Range("A4:I65000").Select
Selection.ClearContents
Sheets("Livre Depenses").Select
Range("A4:I65000").Select
Selection.ClearContents
Sheets("Mouvements").Select
Range("A4:I65000").Select
Selection.ClearContents
Sheets("Feuil1").Select
Range("A4:I65000").Select
Selection.ClearContents
Sheets("Feuil2").Select
Range("A4:I65000").Select
Selection.ClearContents
Sheets("Sommaire").Select
Range("E12").Select

Else
MsgBox ("Sauvegardez avant")
End If
End Sub

le seul problème s'est que mes formules sont aussi effacé. Que faut t'il rajouter à cette macro afin de résoudre le problème
merci
amicalement