Option Explicit
Sub GRAND_LIVRE()
Dim plage As Range, cel As Range
Dim valcherch As String, derlig As Long
Application.ScreenUpdating = False
valcherch = Sheets("EDITION").Range("B5")
With Worksheets("Mouvement")
derlig = .Range("A" & Rows.Count).End(xlUp).Row
Set plage = .Range("A11:A" & derlig)
End With
For Each cel In plage
If cel = valcherch Then
Worksheets("EDITION").Cells(Rows.Count, 1).End(xlUp)(2) = cel(, 2)
Worksheets("EDITION").Cells(Rows.Count, 1).End(xlUp)(1, 2) = cel(, 5)
Worksheets("EDITION").Cells(Rows.Count, 1).End(xlUp)(1, 3) = cel(, 7)
Worksheets("EDITION").Cells(Rows.Count, 1).End(xlUp)(1, 4) = cel(, 8)
End If
Next cel
Application.ScreenUpdating = True
End Sub