Mettre un temps entre deux séquences d’une macro

Sub Macro1()
    MsgBox "Ceci est le début de la macro, lorsque vous appuierez sur OK," & _
        " vous attendrez 20 secondes que la macro reprenne"
    ' Pause de 20 seconds.
    Application.OnTime When:=Now + TimeValue("00:00:05"), _
        Name:="Macro2"
    Debug.Print "macro1: " & Timer
End Sub

Public Sub Macro2()
    Debug.Print "macro2: " & Timer
    MsgBox "la seconde macro reprend : Ce message s'affiche 20 secondes après le premier"
End Sub

Application.Wait Now() + Cdate("00:00:30")

Sub test()
    Debug.Print Timer
    Application.Wait Now() + CDate("00:00:05")
    Debug.Print Timer
End Sub

Sub protection_doc()
' changement couleur du document
Call couleur_rouge

MsgBox "protection du document OK" & Chr(13) & Chr(10) & "le doc doit-etre rouge"

Debug.Print Timer
    Application.Wait Now() + CDate("00:00:15")
Debug.Print Timer
    
Call couleur_papier_b 'couleur blanc

'mise en place protéger du document.
If ActiveDocument.ProtectionType = wdNoProtection Then
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, Password:="jlejle"

Else: MsgBox "Le document est déja protégé" & Chr(13) & Chr(10) & "Faire Ctrl+D pour le déprotégéer"
End If

MsgBox "Le document est PROTEGER"

End Sub

Sub test()
    'Appel tempo
    timerS 5 ' 5 s
    MsgBox "fini"
End Sub

Sub timerS(t As Double)
    ' tempo t secondes, précision possible : 1/100 s
    Dim s As Double
    s = Timer: Do While Timer < s + t: DoEvents: Loop
End Sub