yep ^^
tien sur ta formule, pourquoi sur le code modifier je ne peux plus l'appliquer ?
Selection.FormulaArray = _
"=iferror(IF(OR(ROW()=2,HOUR([@HEURE])<>HOUR(SUM(R[-1]C[-2]))),.001*AVERAGE(OFFSET([@mesure],,,SUM(--(HOUR(RC[-2]:R[3]C[-2])=HOUR(RC[-2]))),)),""-""),""-"")"
Columns("A:D").Select
merci
EDIT : trouvé