Sub toto()
Dim currentproc$
currentproc = "Toto"
Call AffProc(currentproc)
Call toto2
Call toto4
Call AffProc(currentproc)
End Sub
'-------------------------
Sub toto2()
Dim currentproc$
currentproc = "Toto2"
Call AffProc(currentproc)
Call toto3
End Sub
'------------------------
Sub toto3()
Dim currentproc$
currentproc = "Toto3"
Call AffProc(currentproc)
End Sub
'------------------------
Sub toto4()
Dim currentproc$
currentproc = "Toto4"
Call AffProc(currentproc)
Call toto2
Call toto3
Call AffProc(currentproc)
End Sub
'-----------------------
Sub AffProc(message)
MsgBox message, vbInformation, "procedure active"
' ou bien
'Application.Wait Now + TimeValue("0:00:01")
'Application.StatusBar = message
End Sub