VBA et combobox values

Bonjour,

j ai un formulaire avec un combo box, je voudrais que lorsque je selectionne une valeur sur le combobox (ID) , il m affiche sur des textes box les autres valeurs liees a l' ID. le probleme c est que les textes box prennent que les valeurs du derniers ID ajouter. voici mon code et merci d avance.

    lastrow = wscontact.Cells(wscontact.Rows.Count, 1).End(xlUp).Row
            For i = 2 To lastrow + 1
      

               If Val(Me.txtindexcontact) = Val(wscontact.Cells(i, 12).Value) Then
               
               If Trim(UCase(cbContact.Value)) = Trim(UCase(wscontact.Cells(i, 3).Value)) & " " & Trim(UCase(wscontact.Cells(i, 4).Value)) Then               
               MsgBox "find"
                FrmVisites.txtfirstname = wscontact.Cells(i, 3).Value
                FrmVisites.txtlastname = wscontact.Cells(i, 4).Value
                FrmVisites.txtposition = wscontact.Cells(i, 5).Value
                FrmVisites.txtphone1 = wscontact.Cells(i, 6).Value
                FrmVisites.txtextension = wscontact.Cells(i, 7).Value
                FrmVisites.txtemail = wscontact.Cells(i, 8).Value
                FrmVisites.txtcellnumber = wscontact.Cells(i, 9).Value
                
              Exit Sub
               
               End If
               End If
           Next i