Option Explicit
Private Sub UserForm_Initialize()
Dim Hyp As Hyperlink, CBx As MSForms.ComboBox, L As Integer
For Each Hyp In Feuil1.Hyperlinks
Set CBx = Me("ComboBox" & Hyp.Range.Column - 9)
L = CBx.ListCount
CBx.AddItem
CBx.List(L, 0) = Hyp.TextToDisplay
CBx.List(L, 1) = Hyp.SubAddress
Next Hyp
End Sub
Private Sub ComboBox1_Change()
Application.Goto Application.Range(ComboBox1.Column(1))
End Sub
Private Sub ComboBox2_Change()
Application.Goto Application.Range(ComboBox2.Column(1))
End Sub
Private Sub ComboBox3_Change()
Application.Goto Application.Range(ComboBox3.Column(1))
End Sub