Bonjour, je ne comprend pas l'erreur que Excel me retourne, voici ma macro
et j'ai le retour suivant
si vous avez une petite idée
merci
VB:
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