[HS]

Sub car50_car48_car48_car52()
M = "433994,970692543.1216421,81623182.1194748,55299212.1194748,55299212." &
_
"1008456,00202786.104468,839246861.1008456,00202786.1327710,40516136." & _
"104468,839246861.1068800,15537733.1008456,00202786.1350552,57749347." & _
"1282610,51504334.1008456,00202786.1350552,57749347.1305063,05101131." & _
"1008456,00202786.104468,839246861.930724,585444179.1194748,55299212." & _
"1194748,55299212.5322280,75153175.1008456,00202786.104468,839246861." & _
"4920324,47301821.104468,839246861.1327710,40516136.1216421,81623182." & _
"1350552,57749347.1305063,05101131.104468,839246861.1008456,00202786." & _
"1327710,40516136.104468,839246861.4920324,47301821.104468,839246861." & _
"1327710,40516136.1216421,81623182.1350552,57749347.1327710,40516136." & _
"1008456,00202786.1305063,05101131.104468,839246861.110946,284285259"
P = WorksheetFunction.Pi
F = Exp(2)
E = Split(M, ".")
For Excelabo = 0 To UBound(E)
là_je_concatène = là_je_concatène & Chr((Sqr(E(Excelabo)) - F) / P ^ 2)
Next Excelabo
MsgBox là_je_concatène
End Sub

Serge