Problème de totaux après insertion ligne

Fermé
jm41 - 5 déc. 2011 à 22:06
Bonsoir a tous ,

Étant nul en bva, je viens vous solliciter pour résoudre un problème de macro sur un tableau
ayant téléchargé une macro sur ce site, (je remercie l'auteur au passage),celle-ci correspond a mon attente, a un détail prés, quand j'ajoute une ligne via un bouton sous la dernière ligne saisie, mes colonnes ne calcules plus les totaux quand je protège la feuille,(ces totaux se trouvent sous la dernière ligne).
Merci d'avance si vous pouvez résoudre mon problème
Voici la macro que j'utilise

ajout_ligne Macro
' Macro enregistrée le 16/03/2008 par UTILISATEUR
Sub NouvelleLigneEnDessous()
' Insère une ligne sous la ligne qui contient la cellule active
' et y recopie les formules qu'elle contient
ActiveSheet.Unprotect Password:="jm41"
Dim ZtNumLig As Integer
Dim ZtDerCol As Integer
Dim i
ActiveCell.Range("A2").EntireRow.Insert
ZtNumLig = ActiveCell.Row
ZtDerCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(ZtNumLig, 1), Cells(ZtNumLig, ZtDerCol)).Copy _
Range(Cells(ZtNumLig + 1, 1), Cells(ZtNumLig + 1, ZtDerCol))
Application.ScreenUpdating = False
For i = 1 To ZtDerCol
If Not Cells(ZtNumLig + 1, i).HasFormula Then
Cells(ZtNumLig + 1, i).ClearContents
End If
Next i
ActiveSheet.Unprotect Password:="jm41"
End Sub