Formulaire de saisie des données / VBA Excel

Je tente de créer un formulaire dans Excel que les utilisateurs pourront utiliser pour faire de l'entrée de données dans Excel. Voici mon code VBA

Private Sub CommandButton1_Click()
Dim derligne As Integer
If MsgBox("confirm?", vbYesNo, "OK") = vbYes Then
derligne = Sheets("database").Range("A456541").End(x1up).Row + 1
Cells(derligne, 1) = TextBox1.Value
End If


End Sub

j'obtiens toujours une erreur d'exécution et quand je click sur le débogueur on m'amène à la ligne de code:

derligne = Sheets("database").Range("A456541").End(x1up).Row + 1


je ne comprend pas ce qu'il manque? quelqu'un pourrait m'aidé?

Merci à l'avance