Sub lienhypertexte()
'création des liens hypertext
L = 1
For Each WS In Worksheets
With Worksheets("SOMMAIRE")
MsgBox (WS.Name & "!A1")
.Hyperlinks.Add Anchor:=.Cells(L, 1), Address:="", SubAddress:= _
"'" & WS.Name & "'!A1", TextToDisplay:=WS.Name
End With
L = L + 1
Next
End Sub