Option Explicit
Sub test()
Dim i As Long
With Sheets("Liste des noms")
For i = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
Sheets.Add(, Sheets(Sheets.Count)).Name = .Cells(i, 1)
Cells(1, 1) = .Cells(i, 1)
.Hyperlinks.Add Anchor:=.Cells(i, 1), Address:="", SubAddress:= _
.Cells(i, 1).Value & "!A1", TextToDisplay:=.Cells(i, 1).Value
ActiveSheet.Hyperlinks.Add Anchor:=Cells(1, 2), Address:="", SubAddress:= _
"'Liste des noms'!A1", TextToDisplay:="Retour sommaire"
Next i
End With
End Sub