XL 2013 réécrire cellule supprimé ailleurs

Public SaveValue
' Quand on clique sur G5, on mémorise sa valeur
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("G5")) Is Nothing Then
        SaveValue = Target
    End If
Fin:
End Sub
' Quand on modifie la valeur de G5 et que G5 devient vide alors on met la valeur SaveValue en A2
Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("G5")) Is Nothing Then
        If Target = "" Then [A2] = SaveValue
    End If
End Sub

Public SavedValue, SavedAddress
' Quand on clique sur une cellule du tableau A, on mémorise sa valeur et son adresse
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A11:C16")) Is Nothing Then  ' Plage à adapter
        SavedValue = Target
        SavedAddress = Target.Address
    End If
Fin:
End Sub
' Quand on modifie une valeur du tableau A et que cette valeur devient nulle on tranfert en tableau B
Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A11:C16")) Is Nothing Then  ' Plage à adapter
        If Target = "" Then
            Range(SavedAddress).Offset(0, 4) = SavedValue   ' 4 décalage colonne de tableau A vers tableau B. A adapter
        End If
    End If
End Sub