Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim DernièreLigne As Long
DernièreLigne = [V65536].End(xlUp).Row
wshSheets = [{"Test"}]
If Not IsError(Application.Match(Sh.Name, wshSheets, 1)) Then
With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
"C:\Users\Desktop\Classeur11.htm" _
, "Test", "$A$2:$V$" & DernièreLigne, xlHtmlStatic, "test_21297", "")
.Publish (True)
.AutoRepublish = True
End With
ActiveWorkbook.Save
End If
End Sub