Recopie VBA : tout bête et je n'y arrive plus

Bonjour,

J'ai un os ... voilà que je n'arrive plus à recopier des informations dans un nouveau classeur que je crée.

Quelqu'un peut-il me dire ce qui cloche ?

Option Explicit

Sub recopier()

    ' fichier cible
    Dim xl As Excel.Application
    Dim wb As Excel.Workbook
    Dim ws As Excel.Worksheet

    ' creation fichier
    Set xl = CreateObject("Excel.Application")
    Set wb = xl.Workbooks.Add  ' On ajoute un classeur
    Set ws = wb.Worksheets(1)  ' On crée l'objet onglet dans le nouveau classeur créé

    Range("A1:C1").Select
    Selection.Copy

    xl.Visible = True
    wb.Activate
    ws.Range("B2:D2").Paste
    Application.CutCopyMode = False

    MsgBox "Recopie terminée !"

End Sub

Bonjour

Remplaces

ws.Range("B2:D2").Paste

par

ws.Range("B2:D2").PasteSpecial Paste:=xlPasteValues

Bonjour,

Sauf erreur, la méthode Paste n'est pas une méthode de l'objet Range mais de l'objet Worksheet. (PasteSpecial est une méthode de l'objet Range).

Range(source).Copy Range(dest) copie la plage source et la colle sur dest.

Worksheets(cible).Paste colle le contenu du press-papier sut la plage sélectionnée.

Pb de code partiellement issu de l'enregistreur...

Cordialement

Merci, vous êtes des champions tous les 2 !