Bonjour tout le monde et bonne année !!!

Je souhaitais apprendre à créer un formulaire sous excel pour la saisie d'informations dans une base de donnée et par ce fait, j'ai créé une macro. Je n'ai fait que recopier le code proposé pour l'apprentissage et il y a une erreur. Je pense l'avoir située mais je ne la comprends pas. Je l'ai mise en gras. Est-ce quelqu'un pourrait m'aider à comprendre ?
Information supplémentaire : j'ai l'impression qu'il n'y a pas de déplacement dans la feuille Base de données j'ai vérifié à plusieurs reprises si je n'avais pas fais d'erreur de saisie.

Merci pour votre aide.
Onobyone

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub transpose_dans_tableau()
'Atteindre le formule 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
    Range("A2").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:=xlNone, SkipBlanks:=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