[/noparse])
[*]Exécuter la macro
[*]Revenir sur le navigateur
[*]Coller le résultat
[/LIST]
[CODE]'Nécessite d'activer la référence Microsoft Forms 2.0 Object Library
Sub ModifCode()
Dim texte As String, dObject As DataObject
Set dObject = New DataObject
dObject.GetFromClipboard
texte = dObject.GetText
While InStr(texte, "[") <> 0
texte = Replace(texte, Mid(texte, InStr(texte, "["), InStr(texte, "]") - InStr(texte, "[") + 1), "")
Wend
texte = "[code=vb]" & texte & "