Pause dans macro

Je souhaiterai rajouter une pause de 10 seconde a cette macro, comment puis je faire?

Sub TesterLaVitesseDeMacro()
    Columns("C:T").Select
    Selection.ClearContents
'par Excel-Malin.com ( https://excel-malin.com )
On Error GoTo Erreur

'stocker le moment de début
MacroDebut = Now

Dim i%, k%, URL$, avant1$, avant2$, apres1$, apres2$, indice%

On Error Resume Next
    For i = 2 To Cells(Rows.Count, "B").End(xlUp).Row

        DoEvents
        URL = Cells(i, "B").Value

        With CreateObject("MSXML2.XMLHTTP")
            .Open "GET", URL, False
            .Send
            If .Status = 200 Then
                For k = 1 To 17
                    avant1 = Sheets("paramètres").Range("avant1").Offset(0, k).Value
                    apres1 = Sheets("paramètres").Range("apres1").Offset(0, k).Value
                    avant2 = Sheets("paramètres").Range("avant2").Offset(0, k).Value
                    apres2 = Sheets("paramètres").Range("apres2").Offset(0, k).Value
                    Cells(i, "B").Offset(0, k).Value = Replace(mydata(.responseText, avant1, apres1, avant2, apres2), Chr(10), "")
                Next
                Cells(i, "B").Offset(0, k).Value = Date
            End If
        End With
    Next

    'comparer le début & la fin et afficher le résultat

Exit Sub

Erreur:
MsgBox "Une erreur est survenue..."
End Sub

Bonjour,

Normalement c'est cette ligne :

Application.wait Now + TimeValue ("00:00:10")

Bonne journée.

Je dois le placer a quel endroit? ca na pas l'air de fonctionné

Où souhaites-tu faire la pause ?