Sub AjusteEcran(Formulaire As Variant)
Dim w As Double '--------------- Je dimensionne le formulaire avec la résolution de l'écran -------------------
w = Application.UsableWidth / 1024 '1280 pixels = 1024 points
Formulaire.Zoom = CInt(w * 100)
Formulaire.Width = Formulaire.Width * w
Formulaire.Height = Formulaire.Height * w
End Sub