XL 2016 Ouvrir des lien hypertexte avec conditions en boucle

Option Compare Text
Sub Suivre_Lien()
    Dim Ligne As Range, Lr As Range
    Set Lr = Cells(Rows.Count, "E").End(xlUp)
    For Each Ligne In Range("D5", Lr).Rows
        Select Case True
            Case Ligne.Cells(1) <> "Oui":       'rien
            Case Ligne.Hyperlinks.Count = 0:    ' rien
            Case Else: Ligne.Hyperlinks(1).Follow
        End Select
    Next
End Sub