Sub actualise_Trot([COLOR="Blue"][B]NomFeuille As String[/B][/COLOR])
Application.ScreenUpdating = False
Sheets("trot").Visible = true
Sheets("trot").Select
'
'
Range("b8").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
'Sheets("jeux").Select
'Range("a10").Select
Application.ScreenUpdating = True
Sheets("trot").Visible = false
'actualise_chronos
[COLOR="Blue"][B]Sheets(NomFeuille).Select[/B][/COLOR]
End Sub