Faire la somme cells comprise entres 2 cells suivant condition

Option Explicit  ' oblige à déclarer les variables utilisées

' constantes décrivant la configuration dans la feuille des données
Const F2 As String = "Feuil2"
Const cocom As String * 1 = "D"
Const comas As String * 1 = "A"

Public Function Total(chapitre As String) As Double
Dim T As Double    ' total
Dim obj As Object  ' va contenir le resultat de la recherche de chapitre dans F2
Dim liobj As Long  ' ligne où chapitre est trouvé
Dim limas As Long  ' ligne masse
' initialisation du total
T = 0
' relance le recalcul de total à chaque modification dans le classeur
Application.Volatile
' depuis la feuille F2
With Sheets(F2)
  ' recherche de chapitre dans la colonne cocom
  Set obj = .Columns(cocom).Find(chapitre, , , xlWhole)
  ' si pas trouvé on va à fin: et total vaudra 0
  If obj Is Nothing Then GoTo fin
  ' ligne où chapitre est trouvé
  liobj = obj.Row
  ' première ligne des masses
  limas = liobj + 1
  ' tant que la colonne comas n'est pas vide
  ' on ajoute la masse
  ' on passe à la ligne suivante
  While .Range(comas & limas).Value <> ""
    T = T + .Range(comas & limas).Value
    limas = limas + 1
  Wend
End With
fin:
' renvoi du résultat
Total = T
End Function