Dim i As Byte, c As Control
Private Sub CoboVille_Change()
On Error Resume Next
i = 0
For Each c In Controls
If c.Tag <> "" Then c = CoboVille.List(CoboVille.ListIndex, i): i = i + 1
If c.Tag <> "" And c = 0 Then c = ""
Next c
End Sub
Private Sub UserForm_Initialize()
CoboVille.List = Feuil2.Range("a2:g" & Feuil2.Cells(Rows.Count, 1).End(3).Row).Value
End Sub