Please don't get angry. I am very please that you try to help me.

I've tried your code or course. Even if it seems to be better than my initial code, I still get : Montr饌l

I've try this and it did not works too:
ActiveWorkbook.WebOptions.Encoding = msoEncodingOEMCanadianFrench

I am completely stuck.