OBJ :Me faire passer une bonne journée!!valeur de cellule dans un lien!!

Sub Tourne()
Dim Onglet As Worksheet
Dim Ligne As Long
Ligne = 0
For Each Onglet In ThisWorkbook.Worksheets
If Onglet.Name <> "synthèse" Then
 Ligne = Ligne + 1
 Sheets("Synthèse").Range("A" & Ligne) = Onglet.Name
 Sheets("Synthèse").Range("C" & Ligne) = Onglet.Range("A1")
End If
Next
End Sub

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