Somme jusqu'á rencontrer valeur dans autre colonne

Bonjour a tous,

Je travaille sur VBA depuis quelques semaines et commence á me faire la main.

J'ai néanmoins besoin d'un petit coup de pouce pour résoudre le probléme suivant:

J'aimerai que le prix de vente (en K) des Concept (en C) soit égal a la somme des Prix de vente des Options. Les options s'agissent en effet de listes de piéces qui constitue les ensembles Concept.

J'aimerai donc créer une matrice qui me permettent d'additioner les options jusqu'á rencontrer le mot Concept de nouveau.

Voici mon code pour le moment:

Dim J As Integer

 For J = Sheets("CalculConf").[B32000].End(xlUp).Row To 12 Step -1
        If Cells(J, 2).Value Like "Irri" Then
        Cells(J, 11) = "SumIf(C:C, "Option 1",K:K) 
End If
 Next

Malheureusement cette macro ne permet pas de s'arreter lorsqu'elle rencontre le mot Concept, et fait donc la somme de toutes les options dans le document.

En vous remerciant d'avance pour votre aide. Je vous joins le fichier.

Ariane

bonjour,

proposition d'adaptation de ton code

    Dim J&, dl&, total As Currency
    With Sheets("CalculConf")
        dl = .Cells(Rows.Count, 2).End(xlUp).Row
        For J = dl To 12 Step -1
            If .Cells(J, 3).Value Like "Concept" Then
                .Cells(J, 9) = total + .Cells(J, 6)
                total = 0
            Else
                total = total + .Cells(J, 6)
            End If
        Next
    End With