Blème pr transférer donn d1 combo vers excel

Bonjour,

Le code suivant me permet de charger mes combobox.

Private Sub UserForm_Initialize()
Dim Data As Worksheet, cmpt As Long, cmpt1 As Long
'dééfinition de la feuille active
Set Data = ThisWorkbook.Worksheets(2)
Set plage = Data.UsedRange

'formatage de l'affichage

Me.ComboBox1.Style = fmStyleDropDownList
Me.ComboBox2.Style = fmStyleDropDownList
Me.ComboBox3.Style = fmStyleDropDownList
Me.ComboBox4.Style = fmStyleDropDownList

'remplissage des combobox

For cmpt = 7 To 5457

Me.ComboBox1.AddItem plage.Cells(cmpt, 3).Value
Me.ComboBox2.AddItem plage.Cells(cmpt, 3).Value
Me.ComboBox3.AddItem plage.Cells(cmpt, 3).Value
Me.ComboBox4.AddItem plage.Cells(cmpt, 3).Value
Next
end sub

j'ai également 4 textbox qui vont me permettre de transférer des données qui vont alimenter des feuilles de calculs. Mon problème est de determiner la ligne qui correspond a chaque enreg afin de mettre a jour le champ correspondant.