Private Sub supprimer_Click()
[COLOR=blue]Dim NumLig As Long
[/COLOR][COLOR=green] ' Calculer le numéro de la ligne
' 1 = ligne d'entête + numéro dans ListBox + 1 = ListBox commence à zéro et non 1
[/COLOR] [COLOR=blue]NumLig = 1 + Me.ListBox1.ListIndex + 1
[/COLOR] ' Supprimer de la ListBox
ListBox1.RemoveItem (ListBox1.ListIndex)
[COLOR=green] ' supprimer la ligne sur la feuille
[/COLOR] [COLOR=blue]Sheets("feuil1").Rows(NumLig).EntireRow.Delete
[/COLOR]End Sub