Private Sub TextBoxCP_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Trouve As Range, Cel As Range
Feuil3.ListObjects(1).Range.AutoFilter Field:=1, Criteria1:=CDbl(TextBoxCP.Text)
ComboBoxVILLE.Clear
For Each Trouve In Feuil3.ListObjects(1).ListColumns("Commune").DataBodyRange.SpecialCells(xlCellTypeVisible).Areas
For Each Cel In Trouve: ComboBoxVILLE.AddItem Cel.Value: Next Cel, Trouve
TextBoxCP.Text = Format(TextBoxCP.Text, "00 000")
End Sub