a = InputBox("Qu'elle est la consigne sur l'étuve : °C ")
b = InputBox("Qu'elle est la tolérance sur l'étuve : ± °C ")
Cells(2, NumCol2 + 1) = "Tolérance Haute"
Cells(3, NumCol2 + 1) = "Consigne"
Cells(4, NumCol2 + 1) = "Moyenne"
Cells(5, NumCol2 + 1) = "Tolérance Basse"
MsgBox (a)
MsgBox (b)
range(Cells(10, NumCol2 + 2), Cells(10, NumCol2 + 8)) = a + b
range(Cells(3, NumCol2 + 2), Cells(3, NumCol2 + 8)) = a
range(Cells(5, NumCol2 + 2), Cells(5, NumCol2 + 8)) = (a - b)