Erreur 1004

Bonjour

Si quelqu'un peux m'expliquer ? J'utilise ce code depuis plusieurs jour

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Range("F2:M2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("F3:M3").Copy
Range("F3:M3").PasteSpecial Paste:=xlPasteValues
Range("F2:M2").PasteSpecial Paste:=xlPasteFormats
Range("G2").FormulaLocal = "=somme(C2:C15)"
Range("H2").FormulaLocal = "=somme(I2-G2)"
Range("I2").FormulaLocal = "=somme(C16+C17)"
Range("J2").FormulaLocal = "=C19"
Range("K2").FormulaLocal = "=C20"
Range("L2").FormulaLocal = "=somme(C19:C20)"
Range("M2").FormulaLocal = "=somme(i2-l2)"
Range("B2:B15,C17,C19,C20").ClearContents
End Sub

Et aujourd'hui en voulant l'utiliser j'obtien ce message d'erreur :

Erreur d'execution "1004"

La méthode insert de la classe range a échoué

Je ne sais pas déboguer cette erreur

Un peu d'aide s'il vous plait

merci

Bonjour,

Essaie ainsi :

Range("F2:M2").Insert Shift:=xlShiftDown, CopyOrigin:=xlFormatFromLeftOrAbove

Merci

Mais j'ai toujours le même message d'erreur

Bonjour

micpid a écrit :

depuis plusieurs jour

Qu'as tu fais depuis Protection, modification des cellules .... ?

Sinon ton fichier en cause va être indispensable

Voilà mon fichier.

Pour l'alléger j'ai enlevé plusieurs qui ne sont pas concerné par le code

Encore merci

Bonjour

Banzai64 a écrit :

Qu'as tu fais depuis Protection, modification des cellules .... ?

Enlèves la protection et cela ira mieux

Bonjour,

ôte la protection de la feuille comme indiqué par banzaï.

eric

Au temps pour moi

merci