Comment calculer les sous totaux dans un tableau évolutif

Bonsoir a tous!!

Je viens soumettre un problème qui me tracasse. En effet je veux effectuer une somme sur des plages par la recherche des mots de référence. J'ai créer deux variables k et l a cet effet. La variable k doit rechercher le mot "SUPERSTRUCTURE". si le mot est trouver, alors sa ligne sert du point du début de la plage pour le calcul en fonction de mot trouver par la variable l qui sera la fin de la plage. Le soucis c'est que la variable k reste figée sur la première ligne trouver. Sur ce les valeurs calculer sont cumulé.

Voici le bout de code

UB SOMME_PAR_INTERVALLE()

Dim l As Long
Dim k As Long
Dim ws As Worksheet
Dim lf As Long
Set ws = Sheets("Cadre_de_Devis")
lf = ws.Cells(Rows.count, 2).End(xlUp).row

For l = lf To 9 Step -1
If InStr(UCase(ws.Cells(l, 2)), UCase("ETAGER")) >= 1 Or InStr(UCase(ws.Cells(l, 2)), UCase("NIVEAU")) >= 1 Or InStr(UCase(ws.Cells(l, 2)), UCase(“RDUC")) >= 1 Then

For k = lf To 9 Step -1
If InStr(UCase(ws.Cells(k, 2)), UCase(Left("SUPERSTRUCTURE", 20))) >= 1 Then

Range("F" & l).FormulaLocal = "=somme((F" & k + 1 & "): (F" & l - 1 & "))”

End If
Next k
End If
Next l
END SUB

bonjour Bedley,

c'st quelque chose qui se fait tout seul et automatiquement dans une plage ordinaire, mais ne pas dans un tableau structuré