Calcule sous total avec un filtre VBA

Bonsoir

svp les expert je voudrai un code qui calcule la total de ligne "L" et surtout aussi sous total quant je mettre un filtre par "BAL" dans ma liste1 pour chaque "BAL(i) " me donne la sous total

merci

Bonjour,

Pour le sous total/BAL :

Private Sub ComboBox7_Change()
If Me.ComboBox7 <> "" Then Me.TextBox39 = WorksheetFunction.SumIf(Worksheets("BD").Columns(6), Me.ComboBox7, Worksheets("BD").Columns(12))
End Sub

Pour le total de L en ajoutant à la procédure d'initialisation :

Me.TextBox40 = WorksheetFunction.Sum(Worksheets("BD").Columns(12))

Cdlt,

Good ..merci