Créer la liste des onglets avec leur couleur

Bonjour,

Je souhaite créer la liste des onglets d’un classeur avec, dans chaque cellule contenant le nom de l’onglet, la couleur de l’onglet correspondant.
De plus, je ne souhaite pas voir les onglets masqués.

Francis PAQUET a gentiment répondu à ma question avec le code suivant :
Sub Snamelist()
Dim i As Integer

Range(“B5”).Select

For i = 1 To Sheets.Count
If Sheets(i).Visible = xlSheetVisible then
ActiveCell.Value = Sheets(i).Name
ActiveCell.Interior.Color = Sheets(i).Tab.Color
ActiveCell.Offset(1, 0).Select
End If
Next i

End Sub

Cependant, les onglets sans couleur apparaissent en noir. Serait-il possible qu’ils apparaissent sans couleur?

Merci,

Paul