Dim IE As InternetExplorer
Set IE = CreateObject("internetexplorer.application")
IE.Visible = True
HtmlMessage 'Génére un string html stocké dans la variable public strHTML par la suite
IE.Navigate "about:<html><body></body></html>" 'BUG ICI!
IE.Navigate strHTML