calcul

Bonjour,
Très novice en VBA, j'ai trouvé sur d'anciennes discussions un code pour calculer sur une même cellule. Or, je n'arrive pas a retranscrire sur une autre cellule.
Si quelqu'un peut m'aider merci d'avance.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
If [mémo] <> "" Then
Target = Target + [mémo]
End If
Application.EnableEvents = True
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) & Target.Value & Chr(34)
End If
End Sub