Sub Tourne()
Dim Onglet As Worksheet
Dim Ligne As Long
Ligne = 0
With Sheets("Synthèse")
.Cells.Clear
For Each Onglet In ThisWorkbook.Worksheets
If Onglet.Name <> "synthèse" Then
Ligne = Ligne + 1
.Range("A" & Ligne) = Onglet.Name
.Range("C" & Ligne) = Onglet.Range("A1")
.Hyperlinks.Add Anchor:=.Range("B" & Ligne), Address:="", SubAddress:= _
Onglet.Name & "!A1", TextToDisplay:=Range(Onglet.Name & "!A1").Text
End If
Next
End With
End Sub