Sub HTML()
Dim i As Byte, Chemin As String, oLink As Hyperlink
Dim Cel As Range, Lien As String, LienFeuille As String
Chemin = ActiveWorkbook.Path & "C:\test"
For i = 1 To Sheets.Count
For Each Cel In Sheets(i).Range("A1:Q2000")
If Cel.Hyperlinks.Count > 0 Then
Lien = Cel.Hyperlinks(1).SubAddress
If Lien <> "" Then
Cel.Hyperlinks.Delete
LienFeuille = Split(Lien, "!")(0)
Set oLink = Sheets(i).Hyperlinks.Add(Cel, LienFeuille & ".htm")
End If
End If
Next
ActiveWorkbook.PublishObjects.Add(SourceType:=xlSourceSheet, Filename:=Chemin & Sheets(i).Name & ".htm", Sheet:=Sheets(i).Name).Publish
Next
End Sub