Calcul somme automatiquement sur excel

Salut a tous
j'ai le code suivant qui permet d'afficher les enregistrements d'une table

On Error Resume Next

Dim DBA As Database
Dim Enreg As DAO.Recordset
Dim Appli As New Application
Dim Ligne As Long
Dim stFichier As String
Dim I As Integer
stFichier = "C:\Colegio_ZA\Colegio_ZA\"

'Ouverture de la base de données
Set DBA = OpenDatabase(stFichier + "Colegio-BZA.MDB")

'Ouverture des enregistrements de la table
Set Enreg = DBA.OpenRecordset("SELECT PAGOS.APELLIDO_PATERNO,PAGOS.APELLIDO_MATERNO,PAGOS.NOMBRE,PAGOS.DATE,PAGOS.GRADO,PAGOS.NIVEL,PAGOS.COLEGIATURA,PAGOS.RECARGOS, PAGOS.INSCRIPCION,PAGOS.RESERVACION,PAGOS.EFECTIVO,PAGOS.CHEQUE,PAGOS.FICHA,FECHA.FECHA3 FROM PAGOS, FECHA WHERE PAGOS.NOMBRE IS NOT NULL AND PAGOS.DATE=FECHA.FECHA3 ")

Ligne = 7

Appli.Visible = True

'Création d'un nouveau classeur EXCEL
Appli.Workbooks.Open "C:\CORTEDELDIA1.XLS", , False
Appli.ActiveWorkbook.Saved = True
'Feuille 1 du classeur EXCEL créé
With Appli.ActiveWorkbook.Worksheets(1)
Appli.Sheets(1).Name = "CORTE DEL DIA"

'Premier enregistrement de la table "Depart75"
Enreg.MoveFirst

'Ecriture dans le fichier "Depart75.xls" tant que la fin de la table "Depart75" n'est pas atteinte
Do While Enreg.EOF = False
' Place le contenu du champ "Lieux" dans la 1ère colonne de la feuille EXCEL
.Cells(Ligne, 1) = Enreg!Apellido_paterno

' Place le contenu du champ "Latitude" dans la 2ème colonne de la feuille EXCEL
.Cells(Ligne, 2) = Enreg!Apellido_materno
.Cells(Ligne, 3) = Enreg!nombre
.Cells(Ligne, 4) = Enreg!GRADO
.Cells(Ligne, 5) = Enreg!NIVEL
.Cells(Ligne, 6) = Enreg!Colegiatura
.Cells(Ligne, 7) = Enreg!RECARGOS
.Cells(Ligne, 8) = Enreg!Inscripcion
.Cells(Ligne, 9) = Enreg!RESERVACION
.Cells(Ligne, 10) = Enreg!EFECTIVO
.Cells(Ligne, 11) = Enreg!CHEQUE
.Cells(Ligne, 12) = Enreg!Ficha
' Place le contenu du champ "Longitude" dans la 3ème colonne de la feuille EXCEL

' Ligne suivante
Ligne = Ligne + 1

' Enregistrement suivante
Enreg.MoveNext
Loop

End With
Appli.ActiveWorkbook.PrintOut
Appli.ActiveWorkbook.Close

je voudrai que en bas de chaque colonne sera calcule le total automatiquement.

et comment faire les bordures

si qlq un a une idee pour m'aider sera tres gentille merci