Public Function Norme_Macro(x As Double, y As Double) As Double
Dim z As Double
z = (x ^ 2 + y ^ 2) ^ (0.5)
Norme_Macro = z
End Function