Sub sommeinterjaune()
For i = 4 To Cells(Rows.Count, 2).End(xlUp).Row
With Cells(i, 2)
If .Interior.ColorIndex = 19 Then somme = somme + .Value: .Offset(, 1) = somme
If .Interior.Color = vbYellow Then somme = 0
End With
Next
End Sub
Sub netoyage()
For i = 4 To Cells(Rows.Count, 2).End(xlUp).Row
With Cells(i, 2)
If .Interior.ColorIndex = 19 Then .Offset(, 1) = ""
End With
Next
End Sub