vba avec protection formules

[exelan]

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 !!

 

[exelan]

Re : vba avec protection formules

re
alors tout marche bien sauf quand je protege les formules l insertion de ligne ce fais mais sans les formules dedans comment corriger le probleme ???