Bonjour
Question 1:
Sub lien()
With Sheets("feuil1")
.Hyperlinks.Add anchor:=.Shapes("Rectangle 1"), Address:="http://www.....fr"
End With
End Sub
Les noms de forme et de feuille sont à adapter dans le classeur original (absent du message)
Question 2 :
Regarder dans les options avancées d'excel.