Lien hypertexte avec variable en VBA

Option Explicit
Dim Verif As Boolean
'--------
Function essai_like(fich As String) As Boolean
Dim separe_esp, separe_pnt
separe_esp = Split(fich)
separe_pnt = Split(separe_esp(1), ".")
If separe_pnt(0) = "10" Then
    essai_like = True
Else
    essai_like = False
End If
MsgBox fich & " " & essai_like

End Function

'-----------
Sub test()
Dim Cptr As Byte, nomfichier As String
For Cptr = 1 To 3
    nomfichier = Choose(Cptr, "variable 101.xls", "variable 10.xlsx", "variable 10_.xls")
    essai_like (nomfichier)
    If Verif = False Then MsgBox nomfichier & " non valable"
Next
End Sub

Sub Lien()
Dim nomC As String
    nomC = Dir("C:\ANCIEN\" & ActiveCell.Value & "*.xls")
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="C:\ANCIEN\" & nomC
    If nomC = "" Then
        nomC = Dir("C:\NOUVEAU\" & ActiveCell.Value & "*.xls")
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="C:\NOUVEAU\" & nomC
    End If

End Sub

Sub test()
    Dim startFileName As String
    Dim objFSO As Object
    Dim objRegExp As Object
    Dim targetFolder As String
    Dim strPattern As String
    
    startFileName = "VARIABLE 10" ' debut du nom du fichier à trouver
    targetFolder = "c:\\TEMP\ANCIEN\\" ' chemin ou chercher
    
    strPattern = startFileName & "([\-_\W]).*.xlsx"
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objRegExp = CreateObject("VBScript.RegExp")
    objRegExp.Pattern = strPattern
    objRegExp.IgnoreCase = True

   'Get the folder object associated with the target directory
    Set objFolder = objFSO.GetFolder(targetFolder)

    'Loop through the files current folder
    For Each objFile In objFolder.Files
        If objRegExp.test(objFile) Then
            'fichier trouvé !
            'ici tu créés ton lien hypertext
            '...
            Debug.Print "fichier trouvé : " & objFile
        End If
    Next


    'Garbage Collection
    Set objFSO = Nothing
    Set objRegExp = Nothing

End Sub