Suppression d'une ligne

Bonjour,
je voudrai avoir un avis sur cette petite partie de code.
Je voulais supprimer une ligne dans un tableau à plusieurs colonnes après avoir sélectionner une ligne dans un ListBox.
J'ai réussi cette commande fonctionne.
Mais c'est juste pour avoir un avis et si ce code ne risuqe pas de provoquer des erreurs par la suite.

Si jamais il faut je peut mettre le classeur en pièce jointe dans un prochain message.
Merci pour votre aide.

Private Sub But_supp_Click()
Dim Rech As Range
Dim Titre As String
Dim rep, rep1, rep2 As Byte

Titre = ListBox1.Value
If Titre = "" Then Exit Sub
Set Rech = Sheets("BDTEQUE").Range("BDLISTE").Find(Titre)

If Rech Is Nothing Then
TextBox1.SetFocus
TextBox1.Value = ""
Else
rep1 = MsgBox("Etes vous sur de supprimer la BD sélectionnée!", _ vbInformation + vbYesNo _
+ vbDefaultButton1, "BD")
If rep1 = vbYes Then
'Listindex +2 me permet d'avoir la zone sélectionner sur la feuille
With Sheets("BDTEQUE").Rows(ListBox1.ListIndex + 2)
.Find (Titre)
.Delete Shift:=xlUp
End With
Else
TextBox1.SetFocus
TextBox1.Value = ""
End If
End If

End Sub