Macro Sélectionner les onglets de couleur xxx

Bonjour le forum,

Je viens de récupérer cette macro sur le forum. Cette dernière permet de sélectionner les onglets en fonction de leur couleur.

Quand je colle cette macro dans Thisworkbook d'un classeur elle fonctionne très bien. Maintenant quand je l'insère dans ma liste de macro complémentaires et j'essaye de la faire tourner, rien !

Je me doute qu'il y a un petit problème technique derrière tout ça que je ne sais pas résoudre pour l'heure...

Dans l'exemple ci-dessous la macro doit sélectionner les onglets en rouge

'Sélectionner les onglets en fonction de leur couleur
Sub SelectionOngletsCouleur()
'déclarer les variables
Dim tabFeuilles() As String, curFeuille As Worksheet, nbFeuilles As Long
'initialiser les variables
ReDim tabFeuilles(1 To 1): tabFeuilles(1) = ""
nbFeuilles = 0
'boucler sur tous les onglets de ce classeur
For Each curFeuille In ThisWorkbook.Worksheets
'si la couleur de l'onglet correspond à la couleur :
If curFeuille.Tab.Color = 255 Then 'couleur rouge
''ajouter le nom de l'onglet dans le tableau
'agrandir le tableau
nbFeuilles = nbFeuilles + 1
ReDim Preserve tabFeuilles(1 To nbFeuilles)
'ajouter le nom de l'onglet en dernière position
tabFeuilles(nbFeuilles) = curFeuille.Name
End If
Next curFeuille
'sélectionner les onglets correspondants (si il y en a)
If tabFeuilles(1) <> "" Then ThisWorkbook.Sheets(tabFeuilles).Select
End Sub

Merci pour vos explications.

Gringoh