Function Test(Rc#, Vc#, Bc#, R1#, V1#, B1#, R2#, V2#, B2#) As Variant()
Dim K1 As Double, K2 As Double, KB As Double, KN As Double, Observ As String
If MélangePossible(K1, K2, KB, KN, Rc, Vc, Bc, R1, V1, B1, R2, V2, B2) Then
Observ = "Réalisable"
Else
Observ = "Impossible"
End If
Test = Array(K1, K2, KB, KN, Observ)
End Function