hyperlien dans liste déroulante

[billboule]

Bonjour,

Je cherche à réutiliser la macro proposée par MDF dans le post #9 de la page https://www.excel-downloads.com/threads/hyperlien-dans-liste-deroulante.55674/.

En gros on veut avoir les liens hypertexte qui s'affichent dans la liste déroulante.

Le code est le suivant :

Option Explicit
'---------------------------------------------------------------------------------------
' Auteur : Didier FOURGEOT (myDearFriend!)
' Date : 01/03/2006
'---------------------------------------------------------------------------------------
'Placée dans le module de code ThisWorkbook, cette procédure permettra de gérer les listes
'de validation contenant la formule "=listLiens" dans n'importe quelle feuille du classeur

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim ValidOk As Boolean
On Error Resume Next
ValidOk = ActiveCell.Validation.Formula1 = "=listLiens"
On Error GoTo 0
If Len(ActiveCell.Value) = 0 Or Not ValidOk Then Exit Sub
Sh.Hyperlinks.Add Anchor:=ActiveCell, Address:=[listLiens].Find _
(what:=ActiveCell.Value, LookIn:=xlValues).Hyperlinks(1).Address
End Sub

Je souhaite modifier ce code. Il marche bien mais produit une erreur quand le champ choisi ne contient pas de lien hypertexte : ma liste est mixte et contient des cellules avec hypertexte et des cellules sans. J'imagine qu'il faut changer la ligne "ValidOk" et rajouter la condition "ET la cellule contient un lien hypertexte".... mais je ne sais pas comment faire !

Merci beaucoup !