Sub test()
j = 5
Val1 = Sheets("résultat").Cells(5, 1).Value
With Sheets("oe")
For i = 1 To .Range("A65536").End(xlUp).Row
If .Cells(i, 1).Value = Val1 Then
Sheets("résultat").Cells(j, 2).Value = Sheets("oe").Cells(i, 2).Value
j = j + 1
End If
Next i
End With
End Sub