Recuperation contenu d'un textbox et tableau excel

Bonjour,


Private Sub CommandButton1_Click()
Dim c As String
Dim a As String

Dim b As String
Dim HJ58 As String
Dim alpha As Object
Dim TextBox1 As Range
Dim TextBox2 As Range






Sheets("MT_DD_LR_SA").Select
Sheets("MT_DD_LR_SA").Copy Before:=Sheets("Feuil1")
Sheets("MT_DD_LR_SA (2)").Name = TextBox3
' Sheets("MT_DD_LR_SA").Copy.Name = "Historic_2013_2014"

' Set a = TextBox1.Text
'Set b = TextBox2.Text


' Sheets("MT_DD_LR_SA").Select
'Range("Textbox1.Value").Select
'Range("a:b").Select
'Selection.Clear



' UserForm1.TextBox1 = a
'UserForm1.TextBox2 = b


'if UserForm1.fOK Then
' a = UserForm1.TextBox1
' b = UserForm1.TextBox2
' End If

'Sheets("MT_DD_LR_SA").Select
'Range("Textbox1.Value").Select
'Range("a&:&b").Select
' Selection.Clear

' Range("Textbox1.Value:TextBox2.Value").Select
'Range("D1000") = TextBox1.Text

' Set alpha = textbox1

' Sheets("MT_DD_LR_SA").Range("D1001").Value = TextBox2.Text
' Sheets("MT_DD_LR_SA").Range("D1002").Value = ":"
' Sheets("MT_DD_LR_SA").Range("D1000").Value = TextBox1.Text
' Sheets("MT_DD_LR_SA").Range("D1001").Value = "D1000&D1002&D1001"
' Sheets("MT_DD_LR_SA").Select
Sheets("MT_DD_LR_SA").Select
HJ58 = "D1000&D1002&D1001"
Range("TextBox1:TextBox2").Select
'Range("a:b").Select
Selection.Clear


'HJ58 = CONCATENER(D1000, D1002, D1001)
'Range ("HJ58")
' Range("D1002") = ":"
' c = CONCATENER(D1000, D1002, D1001)
' HJ58 = "D1000&D1002&D1001"

' MsgBox Range("D1000").Value
' MsgBox Range("D1001").Value
'MsgBox Range("D1002").Value
' MsgBox a


ceci est le combiné de plusieurs lignes qque j'ai utilisé mais sans suite sa bloque
Aidez moi svp

salutations