<p><strong>Méthode 1 : Application.Wait</strong></p>
<pre data-code-wrap="vba"><code class="lang-vba">Application.Wait Now + TimeValue("00:00:05") ' pause de 5 secondes
</code></pre>
<p><strong>Méthode 2 : API Sleep</strong></p>
<pre data-code-wrap="vba"><code class="lang-vba">#If VBA7 Then
Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
#Else
Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
#End If
Sub Test()
Sleep 5000 ' pause de 5000 millisecondes
End Sub
</code></pre>
<p>Note : <code>Application.Wait</code> ne peut pas faire de pause inférieure à 1 seconde. Utilisez <code>Sleep</code> pour des pauses en millisecondes.</p>