Bonsoir,
J'ai trouvé une solution pour le total général:
Sub total_général()
'La dernière ligne du tableau doit être vide sauf la colonne A. "TOTAL" doit être indiqué EN MAJUSCULE
'Fonctionne quelque soit le nombre de ligne du tableau; à adapter selon le nombre de colonnes.
Dim PL, DL, DC As Integer 'Première ligne, Dernière ligne et dernière colonne du tableau
PL = Range("C1").End(xlDown).Row
DL = Range("A2000").End(xlUp).Row
DC = Range("XFD" & PL).End(xlToLeft).Column
Cells(DL, 4).Select ' correspond à la dernière ligne de la colonne D
ActiveCell.FormulaR1C1 = "=SUMIF(C1,""Total *"",C)" ' Somme si, le mot "total" apparait dans la colonne A, faire la somme de la colonne D des sous-totaux sur fond bleu
Cells(DL, 4).Copy 'on copie
Range(Cells(DL, 5), Cells(DL, DC)).Select ' correspond à la dernière ligne du tableau. On colle de la colonne E jusqu'à la fin du tableau
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Cells(DL, 4).Select
Application.CutCopyMode = False
Range("A1").Select
End Sub
Bonne soirée!