Option Explicit
Sub test()
Dim code$, I&, mestr
'Application.ScreenUpdating = False'pas besoins c'est quasi instentané pour 2000 lignes
Sheets(1).Range("A1:B" & Cells(Rows.Count, "B").End(xlUp).Row).Copy
With CreateObject("htmlfile")
'récuperation des données sous forme de texte et convertion en table html
code = "<tr>" & vbCrLf & "<TD>" & Replace(.parentwindow.clipboardData.GetData("TEXT"), vbCrLf, "</TD>" & vbCrLf & "</tr>" & vbCrLf & "<tr>" & vbCrLf & "<TD>")
code = "<table>" & Replace(code, vbTab, "</TD><TD>") & "</TABLE>"
.body.innerhtml = code 'integration du code html dans le body du htmldocument virtuel
Set mestr = .getelementsbytagname("TR") 'recupe les ligne du tableau html
For I = 0 To mestr.Length - 1
If mestr(I).ChildNodes(0).innertext <> "" Then code = Replace(code, " " & mestr(I).ChildNodes(0).innertext & " ", "<font color=red><strong> " & mestr(I).ChildNodes(0).innertext & " </strong></font>")
Next
.parentwindow.clipboardData.setData "TEXT", "<html>" & code & "</html>" 'on remet le code html modifié dans le clip
With Sheets(1): .Activate: .Cells(1).Select: .Paste: End With ' et on recolle le tout
End With
Debug.Print code
End Sub