Somme des valeurs de cellule avec la condition du mois

Bonjour,

je souhaite mettre une condition lors du passage à un nouveau mois ou lors de la vérification de la présence du mot ok dans la colonne A

Le processus de comptage est arrêté et redémarré

Sub Progressive_Product_v2()
  Dim a As Variant
  Dim i As Long

  With Range("q7", Range("q" & Rows.Count).End(xlUp))
    a = .Value
    For i = 2 To UBound(a)

      a(i, 1) = a(i, 1) + a(i - 1, 1)
    Next i
    .Offset(, 1).Value = a

  End With
  With Range("R7", Range("R" & Rows.Count).End(xlUp))
    a = .Value
    For i = 2 To UBound(a)

      a(i, 1) = a(i, 1) + a(i - 1, 1)
    Next i
    .Offset(, 1).Value = a

  End With

End Sub

Ceci est un exemple du résultat attendu

Bonsoir,

Un essai avec une formule

Slts