XL 2016 Ouvrir des lien hypertexte avec conditions en boucle

[Acher12]

Bonjour à vus tous,
Je soulicite votre aide pour créer une macro qui ouvre des fichiers (hyperlien) si la cellule en B contient "OUI"

je vous joins un fichier type.

D'avance merci pour votre aide

 

[fanch55]

Bonsoir,
Je pense que c'est la cellule en "D" et non "B"
A mettre dans un module du classeur et à exécuter :

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