Private Sub Form_Load()
WWb.Navigate (App.Path & "\nomfichier.htm")
FrmVisionner.Top = 0
FrmVisionner.Left = 30
WWb.Width = 8955
FrmVisionner.Width = WWb.Width + 210
FrmVisionner.Height = Screen.Height - 60
WWb.Height = FrmVisionner.Height - 560
CmdEnd.Top = FrmVisionner.Height - 1000
CmdEnd.Left = 8220
End Sub