Macro somme couleurs

Bonjour,

j'ai un probleme de programmation sur open calc.
je cherche à faire une macro me permettant de me donner le nombre de cellules rouge et le nombre de cellules vertes.
J'aimerai que pour les rouges, ca s'affiche en h1 par exemple et pour les vertes en h2.
En bidouilalnt, j'ai reussi à le faire pour la couleur rouge mais je ne sais pas comment faire pour la verte ( le code etant 0,255,0)
voici mes lignes de commandes.

Sub calculrouge
Dim oDoc as object, oFeuille as object, oCell as object
Dim nbcolonne as integer, nbLigne as integer
Dim compteur as integer
' Le classeur courant
oDoc = thiscomponent
'Dans ce classeur accès à une feuille par son nom
oFeuille = oDoc.sheets.getByname("Feuille1")
' Boucle sur les lignes et colonnes
for nbColonne = 0 to 14
for nbLigne = 0 to 20

'Accès à la cellule
oCell= OFeuille.getCellByPosition(nbColonne, nbLigne)
' le texte qui est dans ta cellule
oTexte = oCell.formulaLocal
' la couleur de fond
oCouleur = oCell.cellBackColor

If oCouleur = RGB(255,0,0) Then
compteur = compteur + 1
End If

next nbLigne
next nbColonne

'Séléction de la Cellule par position
oCell= OFeuille.getCellByPosition(7,0)
'Séléction de la Cellule par Nom
'oCell= OFeuille.getCellRangeByName("H3")
oCell.Value = compteur

End Sub

Il y a surement des erreurs dans mes lignes mais bon, ça marche quand meme pour le rouge . :-)

Merci à tous pour votre aide