PB code VBA Range/Copy

[Markal]

Bonjour à toutes et à tous,
J'ai fais un modèle de bon de commande et je souhaiterais que certains éléments de celui-ci se déversent dans un autre classeur.
Par exemple : les cellules B20, J4, C3 se déversent dans les cellules A2, B2 et C3 d'un autre classeur appelé "DEP".
Et pour le bon de commande suivant, les cellules B20, J4 et C3 se déversent en A3, B3 et C3 du classeur "DEP".
Je vous mets ci-dessous mon code :

Sub Envoi_DEP()

  Dim WSDest As Worksheet

  Dim WBDest As Workbook

  Dim WSSource As Worksheet

  Set WSSource = ThisWorkbook.Sheets("BCF")

  Workbooks.Open ("C:\mes_documents\test_bdd_communes\DEP_test.xlsx")

 

  Set WBDest = ActiveWorkbook

  Set WSDest = WBDest.Sheets("bdd")

  WSSource.Range("J22").Copy

  WSDest.Range("A2").End(xlUp)(2).Selection.PasteSpecial Paste:=xlPasteValues

Application.DisplayAlerts = False

  WBDest.Save

  WBDest.Close

End Sub

Merci de voir où je me suis trompé,
Des bises à tous

 

[Dranreb]

Bonjour.
Selection est de trop.

Notez que moi j'écrirais plutôt :

WSDest.Range("A2").End(xlUp)(2).Value = WSSource.Range("J22").Value