renvoi

bonjour
j'ai un petit prob avec ce code!

Private Sub liste_profil_Change()
Dim type_profilé As String
type_profilé = liste_profil.Text
Sheets('Calcul').Cells(5, 2) = type_profilé
If type_profilé = Sheets('Calcul').Cells(10, 1) Then
LstProf.RowSource = 'Profilés!B187:B239'
End If
If type_profilé = Sheets('Calcul').Cells(11, 1) Then
LstProf.RowSource = 'Profilés!B248:B352'
End If
End Sub

il me permet de faire varier une plage d'entrée pour une liste....

a la suite de ce code j'ai

Private Sub ScrollBar1_Change()
xxx.Text = Sheets('Profilés').Cells(187 + ScrollBar1.Value, 2)
End Sub

qui permet de renvoyer la valeur choisi dans une cellule....
mon probleme est le suivant : je voudrais renvoyer effectivement cette valeur mais aussi tout un tas d'autre...donc j'ai penser renvoyer le numero ( 1.2.3.4.........) de la valeur pour ensuite faire une recherche avec la fonction RECHERCHE de excel!!
mais quel est le code pour renvoyer le numero de la valeur???????
merci d'avance