Sub Ouverture_fich_RES(Optional Commentaire, Optional Vitesse, Optional Erreur)
	Chain2 = "=AVERAGE(R[+1]C:R[+" & CStr(NumLigne) & "]C)"
	? Chain2
	=AVERAGE(R[+1]C:R[+10]C)
	? Cells(1, "B").formula
	=AVERAGE(B3)
End Sub

Sub Res_Calcul(Optional Erreur)
   MaForm1 = "=AVERAGE(R[-" & CStr(Offset - 1 - Cpt_Mesure) & "]C:R[-" & CStr(Offset - Cpt_Mesure) & "]C)"


    MaForm1 = CStr(NumMesure + 4 * (2 - NbSensCourant)) & "]C:R[-" & CStr(1 + 4 * (2 - NbSensCourant)) & "]C)"
    MaForm2 = CStr(NumMesure + 4 * (2 - NbSensCourant) + 1) & "]C:R[-" & CStr(2 + 4 * (2 - NbSensCourant)) & "]C)"
    For Cpt_Harmo = 2 To FinCompt + 2
      Cells(Offset, Cpt_Harmo).FormulaR1C1Local = "=AVERAGE(R[-" & MaForm1
      Cells(1 + Offset, Cpt_Harmo).FormulaR1C1Local = "=STDEV(R[-" & MaForm2
    Next Cpt_Harmo


End Sub