combobox et mise à jour

Bonjour,

Dans 1 Userfor1, j'ai un combobox1 "range A", un textbox1 "rangeB" le 2e se mettant à jour automatiquement avec le choix du 1er, par contre je voudrai avoir d'autres textbox2 et 3 "range C,D ...)" que je veux mettre à jour via Userform.

Voici ce que j'ai essayé, mais il y a un problème avec la textbox1

Private Sub UserForm_Initialize()
Dim Plage As String

With Sheets("SAISIE")
Plage = .Range("a2:V100").Address

End With

With ComboBox1
.RowSource = "SAISIE!" & Plage
End With

End Sub

Private Sub ComboBox1_Change()
'mes prénoms mise à jour par combobox1
TextBox12 = ComboBox1.Column(1, ComboBox1.ListIndex)


'mes résultats à mettre à jour
TextBox2 = ComboBox1.Column(14, ComboBox1.ListIndex)
TextBox3 = ComboBox1.Column(15, ComboBox1.ListIndex)

End Sub

Private Sub CommandButton2_Click()

Unload UserForm5

End Sub


'Private Sub UserForm_Activate()

'Application.ScreenUpdating = False

'Sheets("SAISIE").Select
'Range("a2").Select
'For a = 2 To 1500
'NDOS = Cells(a, 1)
'& " " & Cells(a, 2).Value
'ComboBox1.AddItem (NDOS)
'Next
' Application.ScreenUpdating = True
'End Sub
Private Sub CommandButton1_Click()

Sheets("SAISIE").Select


Application.ScreenUpdating = False
CHAINE = ComboBox1

Sheets("SAISIE").Select
Columns("a:a").Select
Selection.Find(What:=CHAINE, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate

y = ActiveCell.Offset(0, 3).Select
ActiveCell = TextBox2
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox3
ActiveCell.Offset(0, 1).Select


ComboBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""


Application.ScreenUpdating = True

'UserForm5.Hide
Unload UserForm5
UserForm5.Show
End Sub

meci du coup de main!
JM