XL 2016 Petit Bug Copier Coller D'une Feuille à L'autre Avec Condition

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