Bonjour OUIZEMANN
Change comme ceci :
With Sheets("page d'ouverture")
.Cells(ligne, 1).Hyperlinks.Add _
Anchor:=.Cells(ligne, 1), Address:="", SubAddress:= _
ws.Name & "!" & c.Address, TextToDisplay:=c.Value
End With
Pour le bouton, il y en a pleins sur google images; tu écrit " bouton rechercher " et voilà.