Amélioration d'une macro & creation d'une macro d'envoi par mail

Bonjour,

Je débute en macro et j'ai besoin de votre aide sur le fichier suivant :
https://www.cjoint.com/?0JkmhrymRKl

J'ai réussi la 1ere étape c'est à dire scinder l'onglet "base" dans plusieurs onglets (1 par client). Pour cela, j'ai utilisé le code suivant :

Sub Pref()
Dim cell As Range
   
   Application.ScreenUpdating = False
   'en supposant que la feuille 'base de données' s'appelle Base
   With Sheets("Base")
   'extraction des valeurs uniques de la colonne des noms
   '(=noms des clients)
     .Range("AA1:AA2").ClearContents
     .Columns("A:A").AdvancedFilter _
         Action:=xlFilterCopy, _
         CriteriaRange:=.Range("AA1:AA2"), _
         CopyToRange:=.Columns("AB"), Unique:=True
         
   'traitement de chaque client (boucle sur la liste de la colonne AB)
   For Each cell In Range("AB2:AB" & Cells(2, "AB").End(xlDown).Row)
     'ajout d'une feuille au nom du client
     Sheets.Add.Name = cell.Value
     'zone critères sur feuille Base
     .Range("AA1").Value = .Range("A1").Value
     .Range("AA2").Value = cell.Value
     'tri sur la base de données 
     .Columns("A:J").AdvancedFilter _
         Action:=xlFilterCopy, _
         CriteriaRange:=.Range("AA1:AA2"), _
         CopyToRange:=ActiveSheet.Columns("A:J"), Unique:=False
   Next
   'nettoyage de la feuille Base
   .Columns("AA:AB").Clear
   .Activate
   End With
 End Sub

Je voudrais faire plusieurs actions après cela :
1/ Ajouter le total de la colonne G, H et J sur la dernière ligne dans chaque onglet (comme dans mon onglet « Base »)
2/ Faire des colonnes de la même taille que mon onglet « Base » dans tous les onglets
3/ Faire une autre macro pour envoyer automatiquement chaque onglet à des destinataires différents et mettre un autre destinataire en « cc... ». Idéalement, il faudrait aussi que l'objet de mon mail change chaque mois et il faudrait aussi que j'ajoute un texte dans le corps du mail.

Merci de votre aide par avance.