Option Explicit
Sub CommandButton1_Click()
Dim DerL As Long
DerL = Range("L65536").End(xlUp).Row
Range("L10:L" & DerL).Copy
Feuil1.Range("A5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub