total par macro

[tracor]

bonsoir à tous les insomniaques d'excel

voici une macro qui me permet d'inserer une ligne et de garder les formules de la ligne pour la ligne inserée
j'aimerai pouvoir faire à pour chaque colonne un total qui bien sur prendra en compte les lignes nouvellement inserée



Sheets("feuil1").Select
Rows("12:12").Select
Selection.Insert Shift:=xlDown
Rows("13:13").Select
Selection.Copy
Rows("12:12").Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.Interior.ColorIndex = xlNone
Sheets("importation").Select
Range("B8").Select
Selection.Copy
Sheets("Feuil1").Select
Range("A12").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "dd/mm/yy"

merci pour vos réponses

tracor