Bonjour,
Pour commencer, tu supprimes ta ligne total qui n'a pas lieu d'exister.
Ensuite dans les options de style de tableau, tu coches ligne des totaux.
Dans cette nouvelle ligne, tu fais les opérations désirées (somme).
Ci-dessous un exemple pour insérer une ligne : on efface la ligne des totaux, insère une nouvelle ligne et ré-affiche de nouveau la ligne des totaux (les fomules sont conservées).
Cdlt.
Public Sub InsertRowInTable()
With ActiveSheet.ListObjects(1)
.ShowTotals = False
.ListRows.Add
.ShowTotals = True
End With
End Sub