使用组合框删除数据

Question

我正在尝试制作一个应用程序，它允许您使用一个组合框删除书籍数据。

1）有关userform

的演示，请参阅此screenshots

2）关于我的源代码，我成功删除了3个4的数据，实际上，我无法删除选择的组合框标题，请参阅此screenshot，这是删除该书的结果＆＃39;康迪德＆＃39;

在这里找到我的源代码

    Private Sub bAnnuler_Click()

    Unload Me

End Sub


Private Sub bSupprimer_Click()
    Dim Livres As Range, rowMatch As Integer

    Set Livres = Worksheets("Livres").Range("A2:A" & Worksheets("Livres").Range("A2").End(xlDown).Row)

    rowMatch = WorksheetFunction.Match(Me.cboTitre.Value, Livres, 0) + 1

    With Worksheets("Livres")
        .Range("B" & rowMatch) = ""
        .Range("C" & rowMatch) = ""
        .Range("D" & rowMatch) = ""
    End With
End Sub

Private Sub cboTitre_Change()
    Dim data As Range

    Set data = Worksheets("Livres").Range("A2:E" & Worksheets("Livres").Range("A2").End(xlDown).Row)

    Me.txtAuteur = WorksheetFunction.VLookup(Me.cboTitre.Value, data, 2, False)
    Me.txtGenre = WorksheetFunction.VLookup(Me.cboTitre.Value, data, 3, False)
    Me.txtNombrePage = WorksheetFunction.VLookup(Me.cboTitre.Value, data, 4, False)

End Sub

Private Sub UserForm_Initialize()
    Dim Livres As Range

    Set Livres = Worksheets("Livres").Range("A2:A" & Worksheets("Livres").Range("A2").End(xlDown).Row)

    Me.cboTitre.MaxLength = Livres.Count
    Me.cboTitre.List = Livres.Value

End Sub

如何从列表中删除图书的4个数据？