Private Sub Command_supprimer_Click()
Dim SuppLigne As Long
On Error GoTo fin
If TextBox2 = "" Then Exit Sub
tx = RTrim(TextBox2)
SuppLigne = Application.Match(tx, Sheets("Base").[A:A], 0)
'SuppLigne = modification.ListView1.SelectedItem.Index + 1
With modification.ListView1
.ListItems.Remove .SelectedItem.Index
Worksheets("Base").Rows(SuppLigne).Delete
End With
fin:
End Sub