J'ai un module qui à l'occasion doit appeler une fenêtre.
Lorsque cela se produit l'écran semble se réinitialiser durant un fraction de seconde. Est ce qu'il existe une façon de corriger cela, ou si c'est la façon normale.

Je reproduis ici le code utilisé:

Option Explicit
Dim a As Integer
Sub Main()
Randomize
a = Int((2 * Rnd) + 1)
If a = 1 Then
boite.Show
Else
End
End If
End Sub


Merci