Probleme execution macro erreur 1004

Bonjour,

j’ai créé cette macro pour exécuter l’insertion automatique dans une base de données à partir d’un formulaire de saisie.
Mais lors de l’exécution de la macro j’ai un message d’erreur : erreur d’exécution, ‘1004’ erreur définie par l’application ou par l’objet.
L’erreur intervient à la ligne en rouge. J’utilise Excel 2003

Voici la macro

Sub transpose_dans_tableau()
'atteindre le formulaire et mémoriser les données
Sheets("Nouvelle fiche").Select
Range("D1:D21").Select
Selection.Copy
'Test pour déterminer la ligne où coller les infos dans le tableau
Sheets("ID_APRC_2008").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 ou coller les données
ligne_active_base = ActiveCell.Row
'Collage avec transposition
Range("A" & ligne_active_base).Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, _
Opération:=xlNone, SkipBlanks:=False, Transpose:=True
'Rendre vierge le formulaire
Sheets("Nouvelle fiche").Select
Range("D1:D21").Select
Selection.ClearContents
Range("D1").Select
'Retourner dans le tableau
Sheets("ID_APRC_2008").Select
Range("A1").Select
End Sub


Pouvez-vous m’aider ?

Merci