A = (-3.3593628880515958, -6.701412796833324, 0)
B = (2.4064530898648613, -5.128099017677052, 0)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
a, D, E, F, G, H, faceABCD, faceADHE, faceABFE, faceBCGF, faceCDHG, faceEFGH, arêteAD, arêteAB, arêteBC, arêteCD, arêteAE, arêteDH, arêteEH, arêteEF, arêteBF, arêteFG, arêteCG, arêteGH = Cube(A, B, C)
I = Point(arêteEF)
J = Point(arêteFG)
K = Point(arêteCD)
b = Plane(I, J, K)