Personnellement, je n'est pas d'événement Change sur une ListBox.
Mais bon, je vois quand même bien le problème.
Donc, il faut mettre un variable pour déterminer si on ajoute un item ou non
Dim EnTrainAjoutItem As Boolean
Private Sub ListBox_Click()
If Not EnTrainAjoutItem Then
MsgBox "ToDo"
End If
End Sub
'Autre part dans le code
EnTrainAjoutItem = True
ListBox.AddItem "test"
ListBox.Selected(ListBox.ListCount - 1) = True
EnTrainAjoutItem = False, ----
(Coloration syntaxique automatique par Kenji)
Après, tu peut améliorer en faisait ta fonction ajouter item.