Petit soucis de macro

Bonjour,

Je voudrais savoir comment trouver le lien hypertext quand je choisi une valeur dans un combobox et le retrancrire dans le textbox1.

J'ai réussis avec le offset mais le Hyperlinks ne marche pas.

Private Sub Combobox1_Click()

Dim quoi As Variant

Dim trouve As Range

quoi = ComboBox1

With Sheets("feuil1").Range("A2:A65536")

Set trouve = .Find(quoi, lookat:=xlWhole)

If Not trouve Is Nothing Then

TextBox1 = trouve.Offset(0, 0)

End If

End With

End Sub

Merci

Etrange, pourquoi vous y arrivez avec l'un mais pas l'autre?

Une photo ci-joint de l'erreur de compilation...