Private Sub CommandButton2_Click()
Dim plage As Range, cel As Range
Application.ScreenUpdating = False
valcherch = Worksheets("Variables").Range("B4").Value
With Worksheets("BL")
derlig = .Range("L" & Rows.Count).End(xlUp).Row
Set plage = .Range("A1:S" & derlig)
End With
For Each cel In plage
If cel <= valcherch Then
cel.EntireRow.Copy
Worksheets("BL_EPURE").Range("A1").Select
Selection.Insert Shift:=xlDown
End If
Next cel
Application.ScreenUpdating = True
End Sub