'Workbooks("TOTO.xls").Activate
For Each ws In ActiveWorkbook.Worksheets
Set Plage = ActiveSheet.Range("A1:J" & Range("A65536").End(xlUp).Row)
Fichier = ThisWorkbook.Path & "\" & ws.Name & ".htm"
Set wb = ActiveWorkbook
wb.PublishObjects.Add(xlSourceRange, Fichier, ws.Name, Plage.Address, xlHtmlStatic, "", "").Publish (True)
Next