Private Sub UserForm_Initialize()
AfficheTitleBarre Me.Caption, False 'suppresion barre titre
With Me 'userform en plein écran + couleur de l'userform
.StartUpPosition = 3
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
.BackColor = RGB(81, 98, 111)
End With
With Me.Frame1 'couleur et centrage de la frame
.Top = (Me.InsideHeight - Me.Frame1.Height) / 2
.Left = (Me.InsideWidth - Me.Frame1.Width) / 2
.BackColor = RGB(81, 98, 111)
End With
End Sub