Sub Creation_Sommaire()
    Sheets("Sommaire").Delete
    Sheets.Add(Before:=Sheets(1)).Name = "Sommaire"
    [A1] = "Sommaire"
    For i = 2 To Sheets.Count
         ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), _
         Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", _
         TextToDisplay:="Lien vers " & Sheets(i).Name
   Next i
End Sub