Option Explicit: Option Base 1
Sub TracerCourbe()
Dim Tablo_In, Tablo_Out, i, iout, Seuil
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Tablo_In = Range("E1:E" & Range("A1000000").End(xlUp).Row)
ReDim Tablo_Out(UBound(Tablo_In))
Tablo_Out(1) = "Abs(min(Fz))"
iout = 2
Seuil = (Application.Max(Range("E1:E" & Range("A1000000").End(xlUp).Row)) + _
Application.Min(Range("E1:E" & Range("A1000000").End(xlUp).Row))) / 2
For i = 2 To UBound(Tablo_In)
If Tablo_In(i, 1) < Seuil Then
Tablo_Out(iout) = Abs(Tablo_In(i, 1))
iout = iout + 1
End If
Next i
ReDim Preserve Tablo_Out(iout)
Sheets("Courbe").Select
Range("A1").Resize(UBound(Tablo_Out, 1)).Value = Application.Transpose(Tablo_Out)
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub