Proble execution boucle do while

Bonjour,

J'ai quelque souci sur un de mes scripts..

Je souhaite calculer une somme sur des lignes différentes (colonne 5) qui sont toutes oranges (la couleur orange servant de limite pour ce calcul de somme), et ensuite reporter le résultat de ce calcul en colonne 8 sur la première ligne orange.

Cependant lorsque les lignes ne sont pas oranges, ou sur les lignes oranges suivant la première, mon code me renvoi des 0. Je ne vois pas comment lui dire de ne rien renvoyer.

Voici mon code pour que vous y voyez plus claire :

For j = 12 To i
    ligneini = j
    compt = 0

    Do While Worksheets(feuille).Cells(j, 5).Interior.Color = 49407
    compt = compt + Worksheets(feuille).Cells(j, 5).Value
        If Worksheets(feuille).Cells(j, 5).Interior.Color <> 49407 Then
            Exit Do
        End If
    j = j + 1
    Loop

    Worksheets(feuille).Cells(ligneini, 8).Value = compt
    Worksheets(feuille).Cells(ligneini, 9).Value = Application.Average(Range(Cells(ligneini, 3), Cells(j - 1, 3)))

Next

End Sub

EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages.