Problème vba sous excell

Bonjour,
Voici le code VBA qui recherche les cellules bleues et indique "bleu" dedans :

Sub recherchecouleur()
For Each Cell In Sheets("Feuil1").Range("A1:A20")
If Cell.Interior.ColorIndex = 33 Then
Cell.Select
ActiveCell = "bleu"
End If
Next Cell
End Sub

Et voici un fichier de Geedee trouvé ici qui vous donne le code douleur VBA (colonne Index) : fichiercouleur

Do Until "Feuille".Cells(I, "numColonne").Interior.ColorIndex = "TaCouleur"
           I = I + 1
Loop 
        

à toi d'apater
A+