XL 2016 saisir un lien hypertexte depuis un nom dans une cellule

Sub CopierLien()
    For L = 1 To 150                ' A adapter, ici de la ligne 1 à la ligne 150
        Valeur = Cells(L, "AL")
        Cells(L, "M").Select
        On Error Resume Next
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Valeur, TextToDisplay:=Valeur
    Next L
    [A1].Select
End Sub

Sub LiensSansSelect()
Dim vArr, i&
    With ActiveSheet
        vArr = .Range(.Cells(1, "AL"), .Cells(Rows.Count, "AL").End(xlUp)).Value
        For i = 1 To UBound(vArr, 1)
        .Hyperlinks.Add Anchor:=.Cells(i, "M"), Address:=vArr(i, 1), TextToDisplay:=vArr(i, 1)
        Next i
    End With
End Sub

Sub Lien()
[M2:M150] = "=HYPERLINK(RC[25])"
End Sub