Charger textbox

Bonjour à tous
J'ai un userform avec des texbox
1) je voudrai que chaque texbox de l'userform reprenne le contenu de chaque cellule c'est à dire que l'userform doit etre la replique de la feuille
D'avance merci
Private Sub CommandButton10_Click()
Sheets("TdeC").Range("F2").Value = Me.TextBox1.Text
Sheets("TdeC").Range("D1").Value = Me.TextBox2.Text
Sheets("TdeC").Range("F5").Value = Me.TextBox3.Text
Sheets("TdeC").Range("G1").Value = Me.TextBox4.Text
Sheets("TdeC").Range("F8").Value = Me.TextBox5.Text
Sheets("TdeC").Range("B7").Value = Me.TextBox6.Text
TdeC.Hide
End Sub