Trouver les cellules en couleur d'une colonne

Bonjour a tous, Je cherche a afficher une a une les cellules qui sont en jaune (color index=6) dans une colonne. Idealement un bouton "NEXT" serais employe.

Quelqu'un aurais un bout de code pour m'aider a partir.

J'ai finalement trouve:

Private Sub CommandButton2_Click() '<NEXT>
Dim valeur
 valeur = UserForm6.TextBox1
 With Columns("I")  'ATENTION: la recherche commence avec la cellule active

            Application.FindFormat.Interior.ColorIndex = 6  'sera pris en consideration si SearchFormat:=true
            Set cel = .find(What:=valeur, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False) 'premiere recherche avec critere 2
            cel.Interior.ColorIndex = 6    ' Colorise ce que l'on trouve (optionnel si cellule deja en couleur
            cel.Select                     ' affichage de la cellule

End With

End Sub