Sub calc()
Dim somme_rouge As Integer, somme_verte As Integer
Application.Goto Sheets('feuil1').Range('B13')
For i = 13 To Range('b65536').End(xlUp).Row
If Cells(i, 2).Font.ColorIndex = 3 Then
somme_rouge = somme_rouge + Cells(i, 2).Value
ElseIf Cells(i, 2).Font.ColorIndex = 10 Then
somme_verte = somme_verte + Cells(i, 2).Value
End If
Next i
Cells(9, 5).Value = somme_verte - somme_rouge
End Sub