Bug Macro VBA sous Excel 365

Bonjour,

la macro suivante, récupérée sur le net, et adaptée à mes besoins, fonctionnait parfaitement sous Excel 2016, mais bug sous 365, sans que ne sache pourquoi!

Il s'agit d'un programme permettant de copier-coller le contenu d'une feuille Excel sur un doc word. Depuis que je suis passé sous MS 365, à chaque première exécution, la macro produit un doc word vierge. Il faut attendre la deuxième exécution pour que cela fonctionne! Quelqu'un pourrait-il m'aider ?

Merci

Sub GenereDoc()

Dim NDF As String
Dim WordApp As Object, WordDoc As Object

    NDF = ActiveWorkbook.Path & "\" & "QCM_" & Format(Now(), "yyyymmdd_hhmm")

    On Error Resume Next

    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True

    Set WordDoc = WordApp.Documents.Add

    With WordApp.Selection
        Sheets("Nouveau QCM").Range("A1:C364").Copy
        .Paste
        .InsertBreak Type:=wdLineBreak

    End With

    Application.CutCopyMode = False
    WordDoc.SaveAs NDF

    Set WordDoc = Nothing
    Set WordApp = Nothing

    MsgBox "Document Word généré avec succès !", , "Information"

End Sub

Bonjour,

Remplacer:

With WordApp.Selection

par

With WordDoc.Content

Merci de ta réponse, mais ça ne change rien...

Le problème semble venir du presse papier... en retirant la ligne de code 'On Error Resume Next', j'obtiens une erreur 4605. L'erreur se produit au niveau de la ligne '.Paste'. Des idées peut-être? Merci