Sub Jouvence_Pour_Brigitte()
Dim elixir$, jouv_4_Brigitte, Plongee_Brigitte_dans_la_Fontaine_deJOUVENCE&
'Formule trouvée dans un grimoire dans le Finistère
elixir = "1/2+2/4+INT((100/2/3/4/5/6/7/8/9*10000000)-27*10^2)-3"
jouv_4_Brigitte = Evaluate(elixir)
Plongee_Brigitte_dans_la_Fontaine_deJOUVENCE = MsgBox(jouv_4_Brigitte & vbLf & " ? & % % * AGE INVALIDE - erreur détectée" & vbLf & vbLf & "Voulez-vous dans la Fontaine de Jouvence, Brigitte, plonger?", vbCritical + vbYesNo, "Par la magie du Grand Excel ...")
If Plongee_Brigitte_dans_la_Fontaine_deJOUVENCE = 6 Then
MsgBox StrReverse(jouv_4_Brigitte) & vbLf & "L'opération a réussi - AGE CORRECT DETECTE"
Else
MsgBox "Brigitte sera toujours tite couette sur XLD", vbInformation, ";-)"
End If
End Sub