Private Sub cmdsupprimer_Click()
If MsgBox("Voulez-vous supprimer les données?", vbYesNo) = vbYes Then
On Error Resume Next
sheets("input").ListObjects(1).ListRows(Me.Txtrowid).Delete
'Recharger notre listbox
sheets("input").Range("Z3") = "*" & Me.Chercher & "*"
Range("Tableau20").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange _
:=sheets("input").Range("Z2:Z3"), CopyToRange:=sheets("input").Range("AB2:AQ2"), Unique:=False
Me.ListBox2.RowSource = "decaler"
'Mettre à jour les comptes
Me.ListBox1.RowSource = "comptes"
End If
End Sub