code de la listBoxne fonctionne pas

[Mouchty85]

Bonjour a tous,
Je réalise un petit projet sur excel avec VBA et je me trouve confronté a un petit problème.

Explication:
J'ai un userfrom avec 3 multipage.
la première sert a ajouter, la seconde a modifier et la troisième a supprimer.
Mon problème porte sur la lmodification. j'ai une listbox qui m'affiche tou les élément présent dans un tableau, et je souhaierai que l'orque je clique sur une des lifne, les textbox et autre se remplisse automatiquement des information du tabeau. jusqu'a présent je savais faire cette opération avec unecombox mais avec une listbox je bloque.

Code:
Private Sub SélectionVAIModifier_Click()

If SélectionVAIModifier.ListIndex <> -1 Then
SélectionVAIModifier.RemoveItem (SélectionVAIModifier.ListIndex)

NL = Range("PTableauVirementAutoInterne").Rows.Count
For i = 1 To NL
If SélectionVAIModifier.Value = Range("PTableauVirementAutoInterne").Value Then
Range("PTableauVirementAutoInterne").Cells(i, 1).Value = MDVAIDate.Value
'.......
End If
Next i
End If

End Sub

Pourriez vous m'apporter votre aide je vous remercie d'avance.
Mouchty85