XL 2013 Recherche indexée avec lien hypertexte

Private Sub ComboBox1_Change()
Dim dest As Range, i As Variant, j%, n%
Set dest = [E17] 'cellule de destination à adapter
Application.ScreenUpdating = False
[D4] = "": dest.EntireRow.Clear 'RAZ
With Sheets("liste")
    i = Application.Match(ComboBox1, .Columns(1), 0)
    If IsError(i) Then Exit Sub
    [D4] = .Cells(i, 2)
    For j = 3 To .[A1].CurrentRegion.Columns.Count
        If LCase(.Cells(i, j)) = "x" Then n = n + 1: .Cells(1, j).Copy dest(1, n)
    Next
End With
End Sub

Private Sub ComboBox1_Change()
Dim dest As Range, i As Variant, lig&, j%, col%
Set dest = [D12] '1ère cellule de destination, à adapter
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
[D4] = "": dest.Resize(Rows.Count - dest.Row + 1, 12).Clear 'RAZ
With Sheets("liste")
    i = Application.Match(ComboBox1, .Columns(1), 0)
    If IsNumeric(i) Then
        [D4] = .Cells(i, 2)
        lig = 1
        For j = 3 To .[A1].CurrentRegion.Columns.Count
            If LCase(.Cells(i, j)) = "x" Then
                col = col + 1
                .Cells(1, j).Copy dest(lig, col)
                With dest(lig, col)
                    .Interior.Color = RGB(255, 199, 206)
                    .Font.Color = RGB(156, 0, 6)
                    .Borders.Weight = xlHairline
                End With
                If col = 12 Then lig = lig + 1: col = 0
            End If
        Next
    End If
End With
Application.Calculation = xlCalculationAutomatic
End Sub

Private Sub ComboBox1_Change()
Dim dest As Range, i As Variant, lig&, j%, col%, ad$
Set dest = [D12] '1ère cellule de destination, à adapter
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
[D4] = "": dest.Resize(Rows.Count - dest.Row + 1, 12).Clear 'RAZ
With Sheets("liste")
    i = Application.Match(ComboBox1, .Columns(1), 0)
    If IsNumeric(i) Then
        [D4] = .Cells(i, 2)
        lig = 1
        For j = 3 To .[A1].CurrentRegion.Columns.Count
            If LCase(.Cells(i, j)) = "x" Then
                col = col + 1
                ad = .Cells(1, j).Hyperlinks(1).Address
                If ad = "" Then ad = "#" & .Cells(1, j).Hyperlinks(1).SubAddress
                dest(lig, col) = "=HYPERLINK(""" & ad & """,""" & .Cells(1, j) & """)" 'fonction LIEN_HYPERTEXTE
                With dest(lig, col)
                    .Interior.Color = RGB(255, 199, 206)
                    .Font.Color = RGB(156, 0, 6)
                    .Borders.Weight = xlHairline
                End With
                If col = 12 Then lig = lig + 1: col = 0
            End If
        Next
    End If
End With
Application.Calculation = xlCalculationAutomatic
End Sub