Insertion code dans object de la nouvelle feuille VBA

Bonjour,

J'ai un problème avec mon fichier.

Voila, quand on clique sur le premier bouton "générer" de ma "Feuil1", cela généré une nouvelle feuille qui possède un bouton. Quand on clique dessus un carré coloré s'affiche. Ce carré est censé me permettre de reproduire sa couleur et son texte sur les cellules de ma feuille comme expliqué sur cet exemple :

https://www.blog-excel.com/userform-modal/

Mais on ne peut pas reproduire la mise en forme du carré(couleur et lettre), car on a pas insérer a la nouvelle feuille généré le code suivant :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If actif Then

Selection.Interior.Color = UserForm.CommandButton_couleur.BackColor

Selection.Value = UserForm.CommandButton_couleur.Caption

End If

End Sub

A moins d'insérer manuellement dans Visual Basic/Microsoft Excel Objects/ Feuil?(color) le code precedent, la reproduction ne marche pas.

Existe t-il une solution pour le générer automatiquement ?

J'espère avoir été clair..

Merci pour votre attention, en espérant que quelqu'un puisse m'aider, je vous souhaite une agréable journée

Bonjour

Essaie avec ce fichier pour voir si cela rencontre tes attentes

Si ok, clique sur le V vert à coté du bouton EDITER lors de ta réponse afin de cloturer le fil

Crdlt