bonjour à tous et toutes

J'ai regardé le forum, les tutos du site et je n'y arrive toujours pas.

Le bout de code ci dessous ne renvoie rien

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton31_Click()
Unload UserForm3
MsgBox ("toto 2012")
exemplesub 12
Call exemplesub(12)
End Sub
 
Sub exemplesub(arg1 As Integer)
MsgBox arg1
MsgBox ("toto")
End Sub
Mon userform3 se ferme bien, le "toto2012" apparait bien, mais ensuite plus rien.

Merci de votre aide

Daniel S

PS : Joyeuses Paques