selection pour enregistrement html

Bonsoir le forum
j'ai récupéré une macro qui m'enregistre en html chaque feuillets d'un classeur dans un répertoire avec le nom du feuillet comme nom de fichier html.
je veux modifier cette macro pour n'enregistre qu'une zone (A1:O45) de chaque feuillet.
après plusieurs essais je n'y parviens pas !
Quelqu'un peut-il me renseigner?
Ci dessous la macro en question:

Sub enregishtml()
Dim ws As Worksheet, Fichier As String
Workbooks("toto.xls").Activate
For Each ws In ActiveWorkbook.Worksheets
Fichier = ThisWorkbook.Path & "\page_html_toto\" & ws.Name & ".htm"
' creation du fichier htm
ActiveWorkbook.PublishObjects.Add _
(xlSourceSheet, Fichier, ws.Name, "", xlHtmlStatic, "", "").Publish
Next
End Sub

Merci !