Sub LiensHypertextes()
Sheets("Résultat").Activate
For i = 20 To 31
If Range("D" & i) = "X" Then
Range("A" & i).Select
AddrLink = "'" & Range("A" & i).Value & "'" & "!A1"
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
AddrLink, TextToDisplay:=Range("A" & i).Value
With Selection.Font
.Size = 14
.Bold = True
End With
End If
Next i
End Sub