Salut je pensais avoir réglé mon problème mais selon les versions d'excel cela donne ce que je souhaite ou non

je souhaite que mon message userfrom se ferme a la fin de macro qui est assez longue, ca fonctionnait bizarrement sous excel 2007 mais sur 2010 et 2013 le message ne reste pas affiché tout au long de l’exécution de ma macro (ce qui est normal vu que le code ne dit que 3 sec )

voici mon code pour le userfrom

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Label1_Click()
 
End Sub
 
Private Sub UserForm_Activate()
Dim s As Single
s = Timer
Do While Timer < s + 3
    DoEvents
Loop
Unload Me
End Sub
et le code de la macro

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Sub test()
UserForm1.Show
With Sheets("feuil1").Range("H4:H136")
.FormulaLocal = "=SI(D4<>"""";G4/D4/$G$137*$G$139+E4;"""")"
.Value = .Value
End With
End Sub
je voudrais que le message puisse rester afficher tout au long et s'en aille une fois les calculs terminés