Sub Essai()
Dim m&, n&, k As Byte, i&
m = Rows.Count: Application.ScreenUpdating = 0
n = Cells(m, 8).End(3).Row
If n > 3 Then Range("I4:I" & n).ClearContents
n = Cells(n, 2).End(3).Row
For i = 5 To n
With Cells(i, 2)
k = .Value: Cells(k + 4, 9) = .Offset(, 1)
End With
Next i
End Sub