Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Workbook_Open()
Sheets("Logo").Visible = -1 ' Feuille Logo visible
Sleep 1000 ' Attendre 1000 ms, soit 1 seconde
Sheets("Logo").Visible = 2 ' Masquer feuille Logo
End Sub