Insertion du nom de la forme qui appelle l'userform dans un label

Bonjour à tous ...

Je bloque sur un projet d'application.

Voici mon problème:

Je souhaiterais récupérer le nom d'une forme servant à appeler un userform et l'afficher dans un label de ce même userform, et je souhaiterais par la même occasion qu' un bouton "supprimer" dans cet userform me supprime cette forme.

Je ne sais pas si je suis clair, mais le fichier joint sera certainement plus explicite.

Je vous remercie par avance de vous intéresser à mon problème.

Salut Le Nen Samuel,

à tester

pour l'affichage du nom de la forme

Sub APPEL_USER()
UserForm1.nom_de_le_forme.Caption = ActiveSheet.Shapes(Application.Caller).Name
UserForm1.Show
End Sub

pour supprimer la forme

Private Sub supp_forme_Click()
NomForme = ActiveSheet.Shapes(Application.Caller).Name
ActiveSheet.Shapes(NomForme).Delete
End Sub

Bonne nuit

Incroyable

Ça marche parfaitement bien ...

Un énorme merci.

Ça va me de faire un grand pas dans mon projet.

Encore Merci.