Extraire les cellules avec texte coloré d'un tableau à un autre

Bonjour tout le monde,

Je fais ce post car malgré mes recherches, je ne trouve pas réponse à ma question avec les qlq notions de VBA que j'ai tant bien que mal apprissent ces derniers jours.

Je vous expose le "soucis":

J'ai un tableau avec pleins de produits dont certains (qu'on utilise plus souvent) qui sont en police rouge. Comme expliqué dans le classeur ci-joint, je souhaiterai extraire ces valeurs en rouge dans un autre tableau à l'aide d'une macro (bouton).

J'ai commencé le code, mais il y un défaut que je n'arrive pas à régler...

Si quelqu'un peut m'aider à résoudre ce problème ça serait top!

Merci d'avance pour votre temps !