Bonjour à tous !!!

Je suis plus que débutant en VB,j'ai fait un petit programme de suppression et exportation mais comment faire pour que la ligne supprimer dans le listbox soit la meme dans le fichier excel,je n'arrive pas à récupérer le numéro de la ligne.
voici mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub DeleteSelectedItem(ByRef Li As MSForms.ListBox)
Dim i As Integer
 
   'on boucle à l'envers pour eviter les erreurs
   'd'index suite à une suppression
 
   For i = Li.ListIndex To 0 Step -1
       'Si l'element est selectionner => on le supprime
 
       If Li.Selected(i) Then Call Li.RemoveItem(i)
       ActiveCell.EntireRow.Delete (i)
   Next i
 
End Sub
Merci à vous