listbox et hyperlien

Private Sub ComboBox1_Gotfocus()
ComboBox1.List = Range("A1", Range("A" & Rows.Count).End(xlUp)).Value
ComboBox1 = ""
End Sub

Private Sub ComboBox1_Change()
On Error Resume Next
Application.Goto Evaluate(Cells(ComboBox1.ListIndex + 1, 2).Hyperlinks(1).SubAddress)
End Sub

Private Sub ComboBox1_Gotfocus()
ComboBox1.List = Range("A1", Range("A" & Rows.Count).End(xlUp)).Value
ComboBox1 = ""
ComboBox1.DropDown
End Sub

Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = -1 Then Exit Sub
Dim a$
On Error Resume Next
a = Cells(ComboBox1.ListIndex + 1, 2).Hyperlinks(1).SubAddress
ActiveCell.Activate 'désactive la ComboBox
Application.Goto Evaluate(a)
End Sub