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

[sive91]

Bonjour, je ne comprend pas l'erreur que Excel me retourne, voici ma macro

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

et j'ai le retour suivant

si vous avez une petite idée

merci

 

[sive91]

Ok trouvé Merci

j'ai du rajouter Worksheets("BL_EPURE").Activate avant Worksheets("BL_EPURE").Range("A1").Select