Pb sur un formulaire

Bonjour,
J'essaie de créer un formulaire pour remplir une base de donnée dans une feuille excel

Dans un fichier, j'ai créé un onglet base de donnees, un onglet formulaire, un onglet choix.
Dans l'onglet base de données, j'ai créé 5 colonnes.
Dans l'onglet formulaire, j'ai copier coller en transposant les intitulés des colonnes de l'onglet base de données.
Dans l'onglet choix j'ai défini des données (liste dansla colonne A de la base de données)

dans VB (1ère utilisation), j'ai écris :

Sub transpose_dans_tableau()
'Atteindre le formulaire et mémoriser les données
Sheets("formulaire").Select
Range("B4:B11").Select
Selection.Copy
'Test pour déterminer la ligne où 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(xlDown).Select
ligne_active_base = ActiveCell.Row
Range("A" & ligne_active_base + 1).Select
End If
'Mémoriser le n° de la ligne où coller les données
ligne_active_base = ActiveCell.Row
'Collage avec transposition
Range("A" & ligne_active_base).Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=x1None, SkipBlanks:=False, Transpose:=True
'Rendre vierge le formulaire
Sheets("formulaire").Select
Range("B4:B11").Select
Selection.ClearContents
Range("B4").Select
'Retourner dans le tableau
Sheets("base de données").Select
Range("A2").Select
End Sub


erreur d'application 1004.
Quelqu'un peut-il m'aider svp ?
Merci par avance