enregistrer un formulaire, erreur 400

Bonjour
Je souhaite créer une base de données contacts sur excel avec un formulaire de saisie (feuil2) qui viendrait s’insérer automatiquement dans mon tableau base de données (feuil1).

J'ai trouvé une méthode qui me semblait valable sur ce lien : 01net. - Construisez une base de donnes avec Excel.
J'ai suivi les instructions à la lettre et saisi le code VBA indiqué mais arrivé au stade de l’enregistrement j'ai un message d'erreur : Erreur 400.

Voici le code VBA saisi :
Sub transpose_dans_tableau()
'Atteindre le formulaire et mémoriser les données
Sheets("Formulaire").Select
Range("B1:B4").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(x1Down).Select
ligne_active_base = ActiveCell.Row
Range("A" & ligne_active_base + 1).Select
End If
'Memorise 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:=x1PastAllExceptBorders, _
Operation:=x1None, SkipBlank:=False, Transpose:=True
'Rendre vierge le formulaire
Sheets("Formulaire").Select
Range("B1:B4").Select
Selection.ClearContents
Range("B1").Select
'Retourner dans le tableau
Sheets("Base de données").Select
Range("A1").Select
End Sub

Je précise que je n'ai aucune connaissance sur VBA, une utilisation d'excel très basique et que je suis nouvelle sur ce forum. J'espère que mon message est suffisamment clair et conforme à votre (notre) charte.
Merci d'avance