Private Sub CommandButton3_Click()
Dim l As Long, c As Range
If ListBox1.ListIndex = -1 Then Exit Sub
l = ListBox1.List(ListBox1.ListIndex, 1)
With Sheets("registre caisse")
' ***************** partie à ajouter ********************
If MsgBox("Supprimer cette ligne ?", _
vbCritical + vbYesNo, "SUPRESSION") = vbNo Then
IniCtl
Exit Sub
End If
' *******************************************************
.Rows(l).EntireRow.Delete
End With
With Sheets(Livre)
Set c = .Columns(1).Find(CLng(TextBox1))
If Not c Is Nothing Then c.EntireRow.Delete
End With
IniCtl
End Sub