Private Sub TextBoxCP_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Trouve As Range, firstAddress As String
ComboBoxVILLE.Clear
With Sheets("CP")
Set Trouve = .Columns(1).Cells.Find(Val(TextBoxCP), lookat:=xlWhole)
If Trouve Is Nothing Then
MsgBox "Code postal non trouvé !" & vbCrLf & vbCrLf & vbCrLf & "RECOMMENCEZ la saisie.", vbOKOnly + vbInformation, "Code postal"
Else
firstAddress = Trouve.Address
Do
ComboBoxVILLE.AddItem .Range("B" & Trouve.Row)
Set Trouve = .Columns(1).Cells.FindNext(Trouve)
Loop While Not Trouve Is Nothing And Trouve.Address <> firstAddress
End If
End With
Set Trouve = Nothing
TextBoxCP.Text = Format(TextBoxCP.Text, "0## ###")
End Sub