Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Application.ScreenUpdating = False
C_P = TextBox5.Value
trouve_ville = False
If C_P <> "" Then
For i = 1 To 262
If C_P = Sheets("cp-ville").Cells(i, 2) Then
trouve_ville = True
TextBox6.Value = Sheets("cp-ville").Cells(i, 3)
Exit Sub
End If
Next i
End If
TextBox6.Value = "ville inconnue"
Application.ScreenUpdating = True
End Sub