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