Bonjour a tous

Voila mon problème :

Lors de la saisie d'un code postal, il affiche directement la ville cependant il y a plusieurs villes qui ont le meme code postal. Ce que j'ai pensé faire c'est créer une listbox avec le nom des villes qui ont le code postal saisie...

Probleme : les codes postaux sont sur une feuille excel donc et lorsqu'il rencontre une ville possedans le meme code postal il les stock dans la list box MAIS pour les premieres villes cela fonctionne mais il ne m'ajoute pas la derniere ville ce qui m'agace !!
Je sais pourquoi il n'ajoute pas la derniere ville mais je ne sais pas comment resoudre le problème

Je vous montre le code que j'ai utilisé :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
j=2
If Txt_Cp.TextLength = 5 Then
 
  For i = 1 To 38621
 
    If ThisWorkbook.Worksheets("CodesPostaux").Cells(i, 1).Value = Txt_Cp.Text And Ville = "" Then
      If ThisWorkbook.Worksheets("CodesPostaux").Cells(j, 1) <> ThisWorkbook.Worksheets("CodesPostaux").Cells(i, 1) Then
        Ville = ThisWorkbook.Worksheets("CodesPostaux").Cells(i, 2).Value
      Else
        UserForm4.ListBox_CodesPostaux.AddItem (ThisWorkbook.Worksheets("CodesPostaux").Cells(i, 2).Value)
      End If
    End If
    j = j + 1
  Next i
Else
  Lbl_Ville.Caption = ""
End If
J'espere avoir été clair
Merci d'avance