PB sur Combox (liste déroulante) dans formulaire

Bonjour,

je vais essayer d'expliquer mon problème;

j'ai un formulaire avec une zone combox avec choix de liste déroulante.
quant je veux faire une recherche sur cette liste si je saisie plus d'une lettre il va chercher la dernière ligne de ma liste et boucle. je suis obligé de faire une fin de tache.

avez vous une idée pour m'aider.
voici mon code:
Private Sub ComboBox1_Change()

Feuil2.Activate
Range("A1").Select

'on fait une boucle
Do Until ActiveCell = (Me.ComboBox1)
ActiveCell.Offset(1, 0).Select
Loop
Me.TextrId = ActiveCell.Offset(0, 1)
Me.TextRMdp = ActiveCell.Offset(0, 2)
Me.TextRcomp = ActiveCell.Offset(0, 3)
End Sub


dans Rowsouce je lui indique le tableau à charger.

Merci d'avance de votre aide.