Afficher selon la couleur remplissage d'une cellule dans un autre feuille

Bonjour je cherche un code, pour afficher toutes les cellules qui sont vertes dans un autre onglets.

Peut-être avec la fonction ? Je vous remercie pour toutes réponses

Range("A1).Font.colorIndex

J'ai trouvé un code qui permet de sélectionner les couleurs

Sub selectionCelluleParCouleur()

    Dim couleur As Long
    couleur = ActiveCell.Interior.Color

    Dim plage As Range
    Set plage = ActiveCell                             ' 1

    For Each c In ActiveSheet.UsedRange                ' 2
        If c.Interior.Color = couleur Then             ' 3
            Set plage = Application.Union(plage, c)    ' 4
        End If
    Next

    plage.Select                                       ' 5

End Sub

j'ai trouvé , pour avoir le code RGB de la couleur voulue

Autres couleurs ....

https://www.mrexcel.com/board/threads/vba-code-to-find-cells-with-a-particular-color-and-copy-those-...

Sub foo()
    Dim MR As Excel.Range
    Dim rngCell As Excel.Range
    Dim rngCount As Long

    Set MR = Sheets("Feuil1").Range("C4:C7")

    rngCount = 1

    For Each rngCell In MR
        If rngCell.DisplayFormat.Interior.Color = RGB(146, 208, 80) Then
            Sheets("destination").Range("C" & rngCount) = rngCell.Value
            rngCount = rngCount + 1
        End If
    Next rngCell
End Sub