Function COEF(plage As Variant)
Dim i As Byte, mat#(1 To 5, 1 To 5), id%(1 To 5, 1 To 1)
For i = 1 To 5
mat(i, 1) = plage(i, 1) ^ 2
mat(i, 2) = 2 * plage(i, 1) * plage(i, 2)
mat(i, 3) = plage(i, 2) ^ 2
mat(i, 4) = 2 * plage(i, 1)
mat(i, 5) = 2 * plage(i, 2)
id(i, 1) = -1
Next
COEF = Application.MMult(Application.MInverse(mat), id)
End Function