Copier en fonction du nom de cellule

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
Application.EnableEvents = False

If Not Intersect(Target, Columns("P")) Is Nothing And Target = "DC" Then
    rep = MsgBox("Souhaitez vous appliquer les prix remisés en colonne N?", vbYesNo)
    If rep = 6 Then
        If Target.Offset(1, 1) = "" Then
            Target.Offset(0, 1).Copy
        Else
            fin = Target.Offset(0, 1).End(xlDown).Row
            Target.Offset(0, 1).Resize(fin - Target.Row + 1, 1).Copy
        End If
        Target.Offset(0, -2).PasteSpecial xlPasteValues
    End If
End If
Application.CutCopyMode = False
Application.EnableEvents = True
End Sub

Sub DCIPdepolisall()
'
    Range("T19:T47").Select
    Selection.COPY
    Range("O19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("V19").Select
End Sub

Sub DCIPdepolisall()
Application.EnableEvents = False 'empeche le déclenchement des macro évènementielles

Range("T19:T47").Copy
Range("O19").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
    'Range("V19").Select

Application.EnableEvents = True
End Sub