Faire la somme de cellules de deux couleurs

Option Explicit     
Sub recenser_svt_couleur()     
Dim Cellule As Range, Plage As Range     
Dim Nbre_rouge As Integer, Nbre_jaune As Integer, Nbre_vert As Integer     

Application.ScreenUpdating = False     
Set Plage = Range("F6:F179")     

For Each Cellule In Plage 
     If Cellule <> "" Then 
          Select Case Cellule.Value 
               Case Is < 0 
                    Nbre_rouge = Nbre_rouge + 1 
               Case Is = 0
                    Nbre_jaune = Nbre_jaune + 1 
               Case Is > 0 
                    Nbre_vert = Nbre_vert + 1 
          End Select 
     End If 
Next 

'ADRESSES DE RESTITUTION A ADAPTER     
Range("B193") = Nbre_rouge     
Range("B191") = Nbre_jaune     
Range("B192") = Nbre_vert     

End Sub