Problème de conservation de données

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
    If Target.Column = 2 And Not (Target.Offset(0, 1).HasFormula) Then
        Application.EnableEvents = False
        ancien = Target
        Range(Cells(Target.Row - 1, 1), Cells(Target.Row - 1, 11)).Copy Target.Offset(0, -1)
        Target = ancien
        Application.EnableEvents = True
    End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
    If Target.Column = 2 And Target = "" And Target.Offset(-1, 1).HasFormula Then
        With Target
            .Validation.Delete
            .Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:="=FoCodeFourn"
            .Interior.ColorIndex = 37
        End With
    End If
End If
End Sub