Bonjour à tous,

Petit nouveau dans ce forum, je vous demande d'avance de m'excuser si mes procédures d'utilisation du forum ne sont pas encore rodées.

J'ai un classeur Excel (.xlsm) qui présente sur une page des listes déroulantes contenant des liens hypertexte.

J'ai récupéré le code VBA ci-dessous qui fonctionne très bien sur la première liste (Merci à Didier Fourgeot).

Dans les autres listes, les liens sont visibles mais ne fonctionnent pas

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

Ce code est répété plusieurs fois en modifiant le nom (SheetChange) et le nom de la plage de cellules (ListAbats).

Merci d'avance de votre aide

Bien cordialement