Blocage sur mon code VBA

[Monhtc]

Bonjour Bonsoir cherts tous,
quelqu'un pourrais m'aider à comprendre ce code?

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

En effet il s'agit d'un combobox que j'ai nommé boxville et ce boxville a pour fichier rowsource une plage de la feuille 3.
Je veux que la combobox (boxville) affiche les information lié à rowsource (rowsource=VILLES) cependant accepte toutes les nouvelles données si celle si existent pas préalablement
Ce code (edité par Job75, grand merci à lui au passage) le fait parfaitement mais s'appuie sur des plages de la feuille 2 au lieu de 3 ou est liée le fichier rowsource (rowsource=VILLES)