[COLOR="DarkSlateGray"][B]Function SRouge(ParamArray r())
Dim z&, oCel As Range
Application.Volatile
For z = LBound(r) To UBound(r)
For Each oCel In r(z).Cells
If oCel.Interior.Color = vbRed Then
If IsNumeric(oCel.Value) And Not IsEmpty(oCel) Then SRouge = SRouge + oCel.Value
End If
Next oCel
Next z
If IsEmpty(SRouge) Then SRouge = ""
End Function[/B][/COLOR]