Bonjour,
la reponse est un peu tardive

bon alors moi ce que je ferais

c'est un copier coller spécial (valeur)
puis je ferai un filtre automatique
filtre "cellule vide"
tu selectionne toute les cellules et tu fais clic droit supprimer décaler les lignes vers le haut
suppression du filtre automatique

tu n'auras plus que ta liste de chiffre les uns en dessous des autres, sans aucune celule vide
tu le fais en manuel avec l'éditeur de macro automatique "enregistrer nouvelle macro" et le tour est jouer

voila j'espere que ca reponds a ta question et que j'ai pas repondu trop tard

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