Erreur 1004 dans xls

Bonjour,

Je suis nouveau en programmation et j'ai voulu en faire un mais xls me sort une erreur 1004
et quand je fais le débogage il me surligne en jaune " Selection.End(x1Down).Select"
ci joint mes ligne visual basic :

'Test pour determiner la ligne ou coller les infos dans le tableau
Sheets("base de données").Select
valeurA2 = Range("A2").Value
If valeurA2 = "" Then
Range("A2").Select
Else
Range("A1").Select
Selection.End(x1Down).Select
ligne_active_base = ActiveCell.Row
Range("A" & ligne_active_base + 1).Select
End If

en fait je voudrait a partir d'une feuille Formulaire saisir des données et ,ces données se cumulent sur une feuille base de données.
mais ça plante
si quelque peut m'aider
Merci d'avance