Lister les onglets d'une certaine couleur

J'aimerai que ma macro liste que les onglets noirs (par exemple) est-ce possible?

Sub Refresh()
Dim i As Integer

    Range(Worksheets("Liste client").Range("A2"), Worksheets("Liste client").Range("A2").End(xlDown)).Clear
    Range("A2").Select

    For i = 1 To Sheets.Count
        ActiveCell.Value = Sheets(i).Name
        ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell, Address:="", SubAddress:= _
        "'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name
        ActiveCell.Offset(1, 0).Select
    Next i

End Sub

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Bonjour gmb,

merci et cela fonctionne mais je ne comprend pas le "xlThemeColorLight1"

Mon but est de lister tous mes onglets dans mon premier sheet en fonction de leur couleur, comment indiquer les différentes couleurs?

Un petit message supplémentaire car apparemment mon bonjour du premier poste est resté dan mon clavier.... Je m'en excuse

Bonjour Heavy_B, gmb , le forum,

Un exemple....de ce que j'ai compris...

Cordialement,

Bonjour xorsankukai,

j'avais déjà remarqué ton pseudo sur mon sujet précédent et je dois avouer que ca me replonge dans ma jeunesse... Génial.

Pour ce qu'y est de la macro je n'avais pas du tout cela en tête mais je trouve cela une bonne idée.

Merci a vous 2 pour l'aide.

Bonjour à tous

Nouvelle version

Bye !

Bonjour gmb,

bien, mais correspod moins à ce que je cherchais, Mais merci quand même.