1 2 3 4 5 6 7 8 9 10 11 12 13
|
With Worksheets("LGDVARIAB")
.Cells(1, k + 4) = "Borne sup IC"
.Cells(2, k + 4) = "=RC[-4]+1.96*RC[-3]/SQRT(RC[-2])"
.Cells(3, k + 4) = "=RC[-4]+1.96*RC[-3]/SQRT(RC[-2])"
.Cells(4, k + 4) = "=RC[-4]+1.96*RC[-3]/SQRT(RC[-2])"
.Cells(5, k + 4) = "=RC[-4]+1.96*RC[-3]/SQRT(RC[-2])"
.Cells(6, k + 4) = "=RC[-4]+1.96*RC[-3]/SQRT(RC[-2])"
.Cells(7, k + 4) = "=RC[-4]+1.96*RC[-3]/SQRT(RC[-2])"
.Cells(8, k + 4) = "=RC[-4]+1.96*RC[-3]/SQRT(RC[-2])"
.Cells(9, k + 4) = "=RC[-4]+1.96*RC[-3]/SQRT(RC[-2])"
End With |