automatisation macro dans tableau

bonjour
je suis sur excel 2007. j¡ai un tableau de 31 colonnes sur 65 lignes.
je souhaiterais faire une macro, qui cherche ligne par ligne.
si il y a une case de couleur jaune que s'affiche dans la case rouge a gauche 25%
s'il y 2 case jaune = 50%
3 = 75% et 4 case 100%
et que la macro descende d'une ligne dans le tableau , fais la meme recherche que ci dessus et note la valeur dans la case bleu.
et ainsi de suite jusqu'a la 65 eme ligne.
je joint ci dessous une capture d'ecran de mon fichier.
j'ai essayer plusieurs macro sans resultat, ca marche que sur la 1 ligne
merci

http://imagik.fr/view/362524

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Function CptCouleur(Rng As Range) As String Dim c As Range Dim Cpt As Integer   For Each c In Rng If c.Interior.Color = vbYellow Then Cpt = Cpt + 1 If Cpt = 4 Then Exit For Next c CptCouleur = IIf(Cpt = 0, "", 100 * Cpt / 4 & "%") End Function Sub Test() Dim i As Integer   With Sheets("Feuil2") 'à adapter For i = 2 To 66 .Range("A" & i).Value = CptCouleur(.Range("B" & i & ":AF" & i)) Next i End With End Sub

---