Sub hyperlien()
For Each c In Sheets(1).Range("A1:A" & Sheets(1).Range("A65000").End(xlUp).Row)
c.Hyperlinks.Add Anchor:=c, Address:="", SubAddress:="'soustitre'!A" & _
Application.Match(c.Value, Sheets("soustitre").Range("A:A"), 0), TextToDisplay:=c.Value
Next c
End Sub