empêcher les Msgbox quand execution de plusieurs macros successivement

Private Function QAB_MsgboxLtd(Msg, Optional scds, Optional Title)'
'=======================================================================
'= Procedure    : MsgboxLtd                                            =
'= Type         : Function                                             =
'=                                                                     =
'= Purpose      : displays a temporary dialogbox                       =
'=                                                                     =
'= Parameters   : msg - variant - contents of the message to display.  =
'=                scds - variant - display duration                    =
'=                title - variant - dialogbox's optional title         =
'=                                                                     =
'= Returns      : nothing                                              =
'=                                                                     =
'= Version:  Date:         Developer:      Action:                     =
'=---------|---------------|---------------|-------------------------- =
'=  1.0.0  | Long time Ago |   STéphane    | Created                   =
'=  1.0.0  | 09/02/2012    |   STéphane    | Opensourced               =
'=======================================================================
'
' La fonction affiche une boîte de dialogue temporaire.
' Elle doit être appelée en spécifiant au moins un message et un nombre de seconde ;
' le titre de la boîte de dialogue peut être spécifié, il prend par défaut la valeur "Alerte".
'
If IsMissing(Title) Then Title = "Alerte"
CreateObject("WScript.Shell").Popup Msg, IIf(IsMissing(scds), 1, scds), Title
End Function

Sub macro1(msg)
If msg Then
  MsgBox ("bonjour 1")
End If
End Sub
Sub macro2(msg)
If msg Then
  MsgBox ("bonjour 2")
End If
End Sub
Sub macro3(msg)
If msg Then
  MsgBox ("bonjour 3")
End If
End Sub
Sub macro()
Call macro1(0)
Call macro2(0)
Call macro3(1)
End Sub