vba avec protection formules

salut a tous
le problème vient de la protection des formules sinon ça marche bien
voila la bête :

Sub InsererSousAvecFormules()
Application.ScreenUpdating = False
ActiveCell(2).Resize(1).EntireRow.Insert
ActiveCell(1).EntireRow.Copy ActiveCell(2).Resize(1).EntireRow
On Error Resume Next 'au cas où il n'y ait pas de constantes
ActiveCell(2).Resize(1).EntireRow. _
SpecialCells(xlConstants).ClearContents

End Sub

l ajout de ligne ce fais quand meme mais sans copie de formules si il y a un sauveur merci !!