Cellule A1 transfère A2

bonjour à tous, même si il est trop tard je vous souhaite à tous une bonne année 2015

voilà je cherche une façon pour faire ceci

j'entre le mot test en A1 j'aimerai qu'au moment du enter il recopie le contenu de A1 en A2

j'ai créé une macro pour effacer le contenu de A1, A2 mais lorsque je l'applique je reçois une erreur 13 incompatibilité de type

quelqu'un peu m'aider ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" And Target <> "" Then Sheets("feuil1").Range("A2") = Sheets("feuil1").Range("A1")

End Sub

la partie pour effacer le contenu est

Sub ViderNewFacture()
'
' ViderNewFacture Macro
'
    Sheets("NewFacture").Select
'
    Range("A1:A2").Select
    Selection.ClearContents
    Range("A1").Select
End Sub

Mais mon problème c'est que lorsque je vide A1 j'ai aussitôt un message erreur

d'avance merci pour votre aide

bonsoir,

à tester

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target <> "" Then Sheets("feuil1").Range("A2") = Sheets("feuil1").Range("A1")

End Sub

et

Sub ViderNewFacture()
'
' ViderNewFacture Macro
'
Application.EnableEvents = False
   Sheets("NewFacture").Select
   Range("A1:A2").ClearContents
    Range("A1").Select
    Application.EnableEvents = True
End Sub