Problème macro VBA ajout d'enregistrement

Bonjour,

Je veux ajouter les données de deux cellules de la feuil1 dans une feuille base de données feuil2.

Quand j'exécute la macro ça plante. J'ai une erreur d'exécution 1004 "erreur définie par l'application ou par l'objet" à la ligne 9.

Je ne trouve pas mon erreur !!

Quelqu'un peut il m'aider.

Merci d'avance

Private Sub CommandButton2_Click()
'Ajouter un nouvel enregistrement
Dim LigneAjout As Long
Dim LigneAjout2 As Long
Dim toto, tata As String

toto = Sheets("Feuil1").Range("B20")
tata = Sheets("Feuil1").Range("C20")
LigneAjout = ActiveWorkbook.Sheets("Feuil2").Range("B1").End(xlDown).Row + 1
ActiveWorkbook.Sheets("Feuil2").Range("B" & LigneAjout).Value = toto
LigneAjout2 = ActiveWorkbook.Sheets("Feuil2").Range("C1").End(xlDown).Row + 1
ActiveWorkbook.Sheets("Feuil2").Range("C" & LigneAjout2).Value = tata

ActiveWorkbook.Sheets("Feuil2").Range("A" & LigneAjout).Value = ActiveWorkbook.Sheets("Feuil2").Range("A1").End(xlDown).Row

MsgBox("L'enregistrement " & toto & " " & tata & " a été ajouté à la base de données.", 64)

End Sub