Bonjour
Modifies ta macro
Range("D5").Value = Val(Replace(D, ",", ".")) 'Diamètre'
Range("D6").Value = Val(Replace(t, ",", ".")) 'Epaisseur'
Range("D7").Value = Val(Replace(SMYS, ",", ".")) 'Valeur de la SMYS en MPA'
Range("D9").Value = Val(Replace(MOP, ",", ".")) 'Valeur de la pression maxi d'utilisation du tube'
Range("D10").Value = Val(Replace(KCV, ",", ".")) 'Valeur de résilience avec une éprouvette en V en Joules'
Range("D11").Value = Val(Replace(F, ",", ".")) 'Diamètre'
P = 2 * Range("D7") * Range("D6") / Range("D5")
'P = 2 * SMYS * t / D
Range("D18") = P
MOP = Range("D11") * P
'MOP = F * P
Range("D8") = MOP