Combo et Hyperlien

Private Sub ComboBox1_Change()
Dim cellRecherche As Excel.Range
    
    'rechercher dans la zone nommée "Liens" la cellule contenant le texte sélectionné dans la Combobox
    Set cellRecherche = .Find(Me.ComboBox1.Value, , xlValues, xlWhole)
    
    'si on a trouvé la cellule
    If Not cellRecherche Is Nothing Then
        'sivre le lien hypertexte de la cellule
        AllerA cellRecherche.Hyperlinks(cellRecherche.Hyperlinks.Count).SubAddress
'        'refermer le UserForm
'        Unload Me
    
    'sinon
    Else
        MsgBox "Erreur"
    End If
End Sub


Private Sub AllerA(adresse As String)
Dim tabStr() As String
    tabStr = Split(adresse, "!")
    ThisWorkbook.Sheets(tabStr(0)).Range(tabStr(1)).Select
End Sub