probleme combobox

bonjour, et merci encore de m'aider,
sur la base de la combobox" Nom ", j'effectue une recherche, pour affiché le prénom sur une deuxième combobox.
Parfois la deuxieme combobox n'affiche pas le résultat que après une multitude de changement de la première combobox, j'ai changer l'événement de change a BeforeUpdate, mais j’ai encore ce problèmes, svp j'aimerai avoir votre aide, merci
voila le code



[/CODE]Private Sub Nom_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim LastLig As Long, i As Long
Application.ScreenUpdating = False
Worksheets("repertoire").Activate
Me.Prenom.Clear
With Sheets("repertoire")
LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 2 To LastLig
If Range("A" & i).Value = Me.Nom Then Me.Prenom.AddItem Range("B" & i).Value
Next i
End With
Worksheets("MENU").Select
Application.ScreenUpdating = True
End Sub[/CODE]