Copier-coller mail VBA/ retourner plus haut dans une macro si bug

Bonjour,

J'ai fait une macro me permettant de copier coller plusieurs series de cellules et pour chaque série d'envoyer un mail via outlook (là où je colle mes séries)

La macro fonctionne correctement mais parfois au moment de coller, il apparait que la macro passe en debug comme si le mail ne s'etait pas encore ouvert ou que la série n'est pas correctement copiée...

je relance la macro plus haut au moment du ".copy" et cela reprend son cours correctement!

Savez vous comment je pourrais régler ce probleme?

Est il possible de coder un "si debug go to le moment où je copie"?

Voici un extrait du code si cela peut aider! Merci d avance

Sub balances_les_mails()

 Dim OutApp As Object
 Dim OutMail As Object
 Dim olInsp As Object
 Dim main As Worksheet
 Dim wdDoc As Object
 Dim oRng As Object
 Dim i As String
 Dim j As String

 Set main = ActiveWorkbook.Sheets("Main")
i = -4
j = 4
While i < 476

i = i + 10
j = j + 10
    main.Activate
    main.Range("D" & i, "G" & j).Copy

    On Error Resume Next
        Set OutApp = GetObject(, "Outlook.Application")
        If Err <> 0 Then Set OutApp = CreateObject("Outlook.Application")
        On Error GoTo 0

         Set OutMail = OutApp.CreateItem(0)
        With OutMail
            .BodyFormat = 3
           ' .To = main.Range("M2")
            .CC = ""
            .BCC = ""
            .Subject = "Tresorerie"
            Set olInsp = .GetInspector
            Set wdDoc = olInsp.WordEditor
            Set oRng = wdDoc.Range
            oRng.collapse 1
            oRng.Paste
            .Display
           ' .send
        End With

        Set OutMail = Nothing
        Set OutApp = Nothing
        Set olInsp = Nothing
        Set wdDoc = Nothing
        Set oRng = Nothing
Wend

End Sub

Bjr,

pour ma part, j'ai toujours mis une tempo de 1 seconde ... à adapter selon ton cas.

hello steelson! Merci! c'est un peu plus long mais ca fonctionne