Je veux savoir comment transférer une case de boite de dialogue dans une case précise de ma feuille?

J'ai essayer ceci et ca ne fonctionne pas:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
Private Sub CommandButton1_Click()
Worksheets("Feuilles de renseignements").Activate
Analyse_Salaire_Dividende.Show
With Sheets("Feuilles de renseignements")
ActiveSheet.Range("E8").Select
ActiveCell = CCur(TextBox1)
ActiveSheet.Range("E9").Select
ActiveCell = CCur(TextBox2)
ActiveSheet.Range("D10").Select
ActiveCell = CCur(TextBox3)
End With
End Sub
Merci beaucoup!