Dim adoStream
Set adoStream = CreateObject("Adodb.Stream")
adoStream.Open
adoStream.Charset = "UTF-8"
adoStream.LoadFromFile NomFichierHTML
'********** !! ***************
f = adoStream.ReadText(-1)
'********** !! ***************
adoStream.Close
Set adoStream = Nothing