Supprimer un bouton definitivement

Bonjour à tous.

Je cherche comment supprimer un bouton avec ses macros associés.

J'ai un bouton qui me lance une Form de saisie.

Lorsque je sauvegarde la saisie, celle ci creer un bouton dynamique avec la procedure click qui lui est attaché.

Lorsque je clique sur le bouton créer j'ai une fenetre me demandant si je veux le supprimer, si je met 'oui' le bouton est bien supprimer mais si je veux creer de nouveau un bouton dynamique il me met qu'il y a un doublon.

J'utilise

X = ActiveSheet.OLEObjects.Count

pour le nom du bouton

sinon voici le code que j'utilise pour supprimer le bouton :

messsupr = MsgBox("Attention vous êtes sur le point de supprimer ce dossier, Etes vous certain de vouloir supprimer le dossier: " & TextBoxDossier.Text & "?", vbYesNo, "SUPPRESSION")
If messsupr = vbYes Then

    'suppression de l'ancien bouton
    Dim obj As OLEObject
    'selection du bon bouton
    Set obj = ActiveWorkbook.ActiveSheet.OLEObjects(TextBoxCurrentPlage.Text)
    'suppression du bouton
    obj.Delete
    messsupr = MsgBox("L'intervention de " & ComboBoxTec & " sur le dossier " & TextBoxDossier & " est désormais supprimée", vbOKOnly, "Dossier Supprimé")
    'cacher la form de suppression
    UserFormModif.Hide
End If

Un peu d'aide me serait bien utile.

Merci par avance

Bonjour,

Ton pb vient du "Hide" probablement car en fait tu caches ton Userform plutôt que la fermer.

Remplace :

UserFormModif.Hide 

PAr:

Unload UserformModif

Pour supprimer le bouton (s'il est bien sur ta feuille)

ActiveSheet.Shapes(1).Delete

Amicalement

Dan