XL 2007 Renvoi de Cellule vers TextBox sujet

Bonsoir Forum
comment faire pour renvoyer la valeur de la cellule vers un TextBos dans USF?
J'ai utilisé ce code ci dessous mais ... pas d'affichage?

Code :

---

Private Sub TextBox8_Change()
TextBox8 = Range("AL10").Value
End Sub

---