Textbox créée dans un frame ne répond pas

Bonjour à tous,

J'ai créé une macro qui ajoute un frame dans une feuille Excel et qui ensuite crée une textbox à l'intérieur de ce frame.

Le processus de création fonctionne très bien mais lorsque j'essaie de rentrer du texte dans la textbox, rien ne se passe.

Bizarrement, si je vais dans le mode création et en ressort, la textbox est soudainement accessible. Pourquoi ne l'est-elle pas dès le début?

Voici mon code:

Sub Bouton1_Click()

Dim Frm As Object
Dim TxtB As Control

'Crée un frame
Set Frm = Worksheets(1).OLEObjects.Add(ClassType:="Forms.Frame.1")

'Crée la textbox dans le frame
Set TxtB = Frm.Object.Controls.Add("Forms.TextBox.1")
With TxtB
.Left = 10
.Top = 10
.Width = 100
.Height = 20
End With

End Sub

Merci d'avance!