VBA - Champs recherche

Bonsoir,

J'essaye de suivre ce tuto: https://www.blog-excel.com/creer-un-champ-de-recherche-vba/

Mais je ne comprend pas comment créer la case où il faut taper le texte à rechercher (VBA dans l'exemple).

J'ai une deuxième question, je chercher à créer une fenêtre permettant de rajouter des données.

J'ai essayé ce code à partir d'un tuto:

Private Sub CommandButton1_Click()
Dim derligne As String
    If MsgBox("Confirmez-vous l'ajout des données", vbYesNo, "confirmation") = vbYes Then
    derligne = Sheets("ID").Range("B500").End(x1Up).Row + 1
    Cells(derline, 2) = texbox1.Value
    Cells(derline, 3) = texbox2.Value
    Cells(derline, 4) = texbox3.Value
    End If
End Sub

Mais ça coince à la ligne derligne, erreur d'execution 1004, erreur définie par l'application ou par l'objet. Pourtant sur le fichier excel du tuto, ça marche...

Ce que je cherche à faire, c'est de mettre les valeurs qu'il y a dans les boites de textes à la dernière ligne disponible.

Merci