Private Sub boxville_AfterUpdate()
If boxville.ListIndex > -1 Then Exit Sub
If MsgBox("Ajouter cette ville ?", 4) = 7 Then boxville = "": Exit Sub
[VILLES].Cells(Application.CountA([VILLES]) + 1) = boxville
boxville.List = [VILLES].cells(2).Resize(Application.CountA([VILLES]) - 1, 2).Value
End Sub