A mon tour de répondre tardivement :p

Finalement j'ai ça comme solution et ça me va très bien

Range("A5").Select
t = 1:
While t < 100
ActiveCell.FormulaR1C1 = "=AVERAGE(calculSed!RC:R[5]C)"
ActiveCell([7], [1]).Select
t = t + 1
Wend

Range("A6:A10").Select
t = 1:
While t < 500
Selection.Delete Shift:=xlUp
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(5, 0)).Select
t = t + 1:
Wend