Inputbox qui s'ouvre 3 fois au lieu d'une...

Bonjour a tous!

ca fait qq semaines que j'ai commence a programmer en VBA pour un stage. jusque la j'ai tjrs reussi a me debloquer en regardant des topics d'aide sur internet, mais la impossible.
du coup je viens solliciter votre aide! (petite precision je suis neophite en programmation VBA)

contexte:
au sein d'un userform j'ai une combox list rempli a partir d'un range sur une feuille excel. lorsque l'on click sur l'une des lignes de la combo, une inputbox apparait pour demander a l'utilisateur de renseigner l'information relative a la ligne. Une fois l'information recuperee, elle est ecrite sur la ligne voulu de ma plage de donnee.


voici mon probleme:
lorsque j'effectue le code ci dessous l'inputbox s'ouvre comme je le souhaite une premiere fois, prend en compte ce que je lui dit quand je clique sur ok, l'ecrit correctement la ou il faut dans ma plage, mais une fois cela fait, la box se reouvre deux fois de suite...
l'erreur vient de la ligne de code qui ecrit le contenu de la variable InputBox_Result dans la cellule que je souhaite. mais impossible pour moi d'en comprendre la raison...

voici mon code epure de tout ce qui n'a rien a voir:
(j'ai pas trouve comment mettre en PJ mon fichier excel)

' initialisation de la liste box a l'ouverture du userform dans lequel elle est:
Private Sub UserForm_Initialize()

' initialisation of the listbox columns
ListBox_Device.ColumnCount = 5
ListBox_Device.ColumnWidths = "250;80;90;60;30"

' the list box is fill up according to the step1
'la liste box est remplie par la plage "ListBox_Range_Step1" 
ListBox_Device.RowSource = "ListBox_Range_Step1"

' la plage en question a deux colonnes. sur la premiere il y a sur 3 lignes des choses d'ecrites (nom client, num affaire,...). la deuxieme colonne est vide. elle doit recevoir les donnees rentrees par l'utilisateur par l'intermediaire de la box.

End Sub



' routine lancee lors de la selection d'une des ligne de la listbox "ListBox_Device"
Private Sub ListBox_Device_Click()
Dim i As Byte
Dim InputBox_Result As String ' declaration de la variable de retour de l'inputbox

    For i = 0 To 2 'je fais tourner mon bazarre sur les lignes 1 a 3 de la plage. cad la ligne 0 a 2 dans la listbox
        If ListBox_Device.Selected(i) = True Then
            InputBox_Result = InputBox(ListBox_Device.Value & " ?", "") ' ListBox_Device.Value affiche donc le texte de la premiere colonne de la plage ListBox_Range_Step1
            If InputBox_Result = "" Then
            Else
            ' j'ecris sur la ligne selectionnee et sur la colonne numero 2 de la plage  la valeur que vient de rentrer l'utilisateur dans la box.
             Worksheets("MMF Configurator").Range("ListBox_Range_Step1").Cells(i + 1, 2).Value = InputBox_Result
               End If
            Exit Sub
        End If
    Next i

End Sub

merci d'avance pour votre aide genereuse!