Textbox en fonction de la feuille sélectionné

bonjours et merci d'avance à tous ceux qui prendrons le temps de répondre à ma question.

Voila je suis confronté à un petit problème j'ai ma fonction suivante :

Private Sub TextBox1_Change()

Dim a$

a$ = ActiveSheet.Name

If ActiveSheet.Name = a$ Then

TextBox1.Value = Range("b7").Value

End If

End Sub

Donc j'ai associé cette petite fonction à une form avec un textbox. J'aimerais que mon textbox soit activé si je suis dans la bonne feuille excel et que la valeur entré dans celle-ci aille dans la cellule B7 ou si quelqu'un connais la fonction pouvant ranger dans la premier cellule vide. MERCI encore

Salut,

En nous fournissant ton fichier, tu aurais quand même plus de chance d'obtenir une réponse.

Cordialement.