Vba liens hypertexte automatique

J'ai essayer avec des liens hypertexte en formule je rentre le liens j'essais de remplacer l'objet rechercher par mes cellule qui contienne la réf de la pièce cela ne fonctionne pas. De plus j'ai plusieurs réf de pièce dans la même cellule qui sont séparer par des ; et dans la cellule des liens hypertexte il faudrait qu'il soit sou forme de liste. Je suis débutant
en VBA j'ai essayer de commencer en fessant une macro mais je ne sait pas par ou commencer.

oui mais si je change la ref de ma pièce et que je crée plan PDF du même nom il ne me le retrouve pas

en gros elle marche pour la la pièce exemple dans la macro mais pas pour la cellule si je modifie la réf de la pièce il ne me garde l'ancien liens hyper texte

Sub Macro1()
'
' Macro1 Macro
'

'
Range("J8").Select
ActiveCell.FormulaR1C1 = "00-P16426-BHL"
Range("L8").Select
Application.CommandBars("XML Source").Visible = False
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"search-ms:displayname=Résultats%20de%20la%20recherche%20dans%20000_PLANS%20CAO&crumb=nomdefichier%3A~%3c00-P16426-BHL.pdf%20OU%20System.Generic.String%3A00-P16426-BHL.pdf&crumb=location:H%3A%5CBE%5C000_PLANS%20CAO" _
, TextToDisplay:= _
"search-ms:displayname=Résultats%20de%20la%20recherche%20dans%20000_PLANS%20CAO&crumb=nomdefichier%3A~%3c00-P16426-BHL.pdf%20OU%20System.Generic.String%3A00-P16426-BHL.pdf&crumb=location:H%3A%5CBE%5C000_PLANS%20CAO"
Range("L8").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

Sub Macro1()
'
' Macro1 Macro
'

'
Range("J8").Select
ActiveCell.FormulaR1C1 = Range("J8k8")
Range("L8").Select
Application.CommandBars("XML Source").Visible = False
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"search-ms:displayname=Résultats%20de%20la%20recherche%20dans%20000_PLANS%20CAO&crumb=nomdefichier%3A~%3c Range("J8k8").pdf%20OU%20System.Generic.String%3A00-P16426-BHL.pdf&crumb=location:H%3A%5CBE%5C000_PLANS%20CAO" _
, TextToDisplay:= _
"search-ms:displayname=Résultats%20de%20la%20recherche%20dans%20000_PLANS%20CAO&crumb=nomdefichier%3A~%3c Range("J8k8").pdf%20OU%20System.Generic.String%3A00-P16426-BHL.pdf&crumb=location:H%3A%5CBE%5C000_PLANS%20CAO"
Range("L8").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

voici la macro de base et voici la nouvelle mais je n'arrivé pas à intégrer dans ma mon liens qu'il doit prendre comme nom de recherche se que contiens la cellule j8 et k8. l'idéale serais que dans la cellule j8 et k8 je rentre toute mes pièces modifier sous forme de liste et que automatiquement il me sorte les liens hypertexte sous forme de liste dans la cellule l8. J'ai commencer le VBA que depuis vendredi je sais faire que des chose basic comme crée un formulaire, des fenêtres avec des indication et des boutons.