Bonjour,

Je fais la copie d'une plage d'un classeur à l'autre. Je dois utiliser la fonction collage spécial.
Voici le code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub add2perso()
Dim Cible As Workbook, Source As Workbook
Dim LastRow As Long, Lastline As Long
Dim Plage As Range
    Set Source = ThisWorkbook
    LastRow = Workbooks("personnel.xlsx").Worksheets("salaires").Range("A" & Rows.Count).End(xlUp).Row
    Lastline = Source.Worksheets("Stage_terminé").Range("V" & Rows.Count).End(xlUp).Row
    With Source.Worksheets("Stage_terminé")
        Set Plage = .Range("V2:V" & Lastline)
    End With
    Plage.Copy
    Workbooks("personnel.xlsx").Worksheets("salaires").Activate
    Range("A" & LastRow + 1).Select
    'Application.CutCopyMode = False
    ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=True, Transpose:=False
    ThisWorkbook.Save
J'ai "erreur 1004 définie par l'application ou l'objet" sur la ligne 15/16.

Je ne comprends pas trop, via l'enregistreur j'ai cette syntaxe. Si je fais un copier/collage spécial sans vba, cela fonctionne.

Qu'est-ce qui manque ?

Cordialement,

Fred