Private Sub CommandButton13_Click()
Application.ScreenUpdating = False
Sheets("Accueil").Select
Range("Q3").Select
For Each i In ActiveWorkbook.Sheets
f = i.Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & f & "'" & "!A1", TextToDisplay:=f
ActiveCell.Offset(1, 0).Select
Next i
[COLOR="Red"] Application.ScreenUpdating = True
Application.ScreenUpdating = False[/COLOR] For i = 2 To Sheets.Count
Sheets(i).Select
Range("S3").Select
For Each u In ActiveWorkbook.Sheets
f = u.Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & f & "'" & "!A1", TextToDisplay:=f
ActiveCell.Offset(1, 0).Select
Next u
Sheets(1).Select
Application.ScreenUpdating = True
Next
End Sub