Akm[k_,m_]:=Piecewise[{{(Eau + Eb1u1 + Eb1u2 + Eb2u1 + Eb2u2 + Eb3u1 + Eb3u2)/7, k == 0 && m == 0}, {(5*(-(Sqrt[6]*Eb2u1) + Sqrt[6]*Eb3u1 + Sqrt[10]*(-2*Mb1u + Mb2u + Mb3u)))/28, k == 2 && (m == -2 || m == 2)}, {(5*(2*Eb1u1 - Eb2u1 - Eb3u1 - Sqrt[15]*Mb2u + Sqrt[15]*Mb3u))/14, k == 2 && m == 0}, {(3*(-4*Sqrt[5]*Eau + 4*Sqrt[5]*Eb1u2 + 3*Sqrt[5]*Eb2u1 - 3*Sqrt[5]*Eb2u2 + 3*Sqrt[5]*Eb3u1 - 3*Sqrt[5]*Eb3u2 - 2*Sqrt[3]*Mb2u + 2*Sqrt[3]*Mb3u))/(8*Sqrt[14]), k == 4 && (m == -4 || m == 4)}, {(3*(3*Sqrt[10]*Eb2u1 - 7*Sqrt[10]*Eb2u2 - 3*Sqrt[10]*Eb3u1 + 7*Sqrt[10]*Eb3u2 - 4*Sqrt[6]*Mb1u + 2*Sqrt[6]*Mb2u + 2*Sqrt[6]*Mb3u))/56, k == 4 && (m == -2 || m == 2)}, {(3*(-28*Eau + 24*Eb1u1 - 28*Eb1u2 + 9*Eb2u1 + 7*Eb2u2 + 9*Eb3u1 + 7*Eb3u2 + 2*Sqrt[15]*Mb2u - 2*Sqrt[15]*Mb3u))/56, k == 4 && m == 0}, {(-13*Sqrt[11/7]*(5*Sqrt[3]*Eb2u1 + 3*Sqrt[3]*Eb2u2 - 5*Sqrt[3]*Eb3u1 - 3*Sqrt[3]*Eb3u2 + 6*Sqrt[5]*Mb2u + 6*Sqrt[5]*Mb3u))/160, k == 6 && (m == -6 || m == 6)}, {(-13*(24*Eau - 24*Eb1u2 + 15*Eb2u1 - 15*Eb2u2 + 15*Eb3u1 - 15*Eb3u2 - 2*Sqrt[15]*Mb2u + 2*Sqrt[15]*Mb3u))/(80*Sqrt[14]), k == 6 && (m == -4 || m == 4)}, {(-13*(5*Sqrt[15]*Eb2u1 + 3*Sqrt[15]*Eb2u2 - 5*Sqrt[15]*Eb3u1 - 3*Sqrt[15]*Eb3u2 - 64*Mb1u - 34*Mb2u - 34*Mb3u))/(160*Sqrt[7]), k == 6 && (m == -2 || m == 2)}, {(13*(24*Eau + 80*Eb1u1 + 24*Eb1u2 - 25*Eb2u1 - 39*Eb2u2 - 25*Eb3u1 - 39*Eb3u2 + 14*Sqrt[15]*Mb2u - 14*Sqrt[15]*Mb3u))/560, k == 6 && m == 0}}, 0]