Microsoft 365 Transformer une liste d'URL en format Hypertexte

Sub ConvertToHyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Application.ActiveSheet.Hyperlinks.Add Rng, Rng.Value
Next
End Sub

Sub ConvertHyperText()
Dim DL%, L%, tablo
Application.ScreenUpdating = False
DL = Range("B65500").End(xlUp).Row                  ' Dernière ligne du tableau
With Sheets("Listing URL")
   For L = 3 To DL                                  ' Pour chaque ligne
    tablo = Split(.Cells(L, "B"), "/")              ' Split du lien pour récupérer le nom
    Nom = Mid(tablo(4), 1, Len(tablo(4)) - 4)       ' Nom du lien ( nom de l'image moins .jpg )
        ActiveSheet.Hyperlinks.Add Anchor:=.Cells(L, "C"), Address:= _
        .Cells(L, "B"), TextToDisplay:=Nom          ' Insertion nom fichier en lien hypertexte
   Next L
End With
End Sub

Sub Hyp()
    Rows("3:" & Cells(Rows.Count, "B").End(xlUp).Row).Columns("B").Style = "Hyperlink"
End Sub