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