Public Sub archives()
Dim nFichier As String, Dlig&, dl As Long
Dim wbSOURCE As Workbook, wbDESTINATION As Workbook
Dim A_COPIER As Range
' mettre le bon chemin
nFichier = "C:\Users\Jérémy\Desktop\ok\ok\test\Nouveau dossier (2)\archive\TDB Historique 2014.xlsx"
Set wbSOURCE = ThisWorkbook
Dlig = ActiveCell.Row
Set A_COPIER = wbSOURCE.Sheets("Tableau de Bord").Cells(Dlig, "A").Resize(, 7)
Set wbDESTINATION = Workbooks.Open(nFichier)
With wbDESTINATION
With .Sheets(1)
.Unprotect PassWord:="jeremy0"
A_COPIER.Copy
dl = .Cells(Rows.Count, 1).End(xlUp).Row
.Cells(dl + 1, 1).PasteSpecial xlValues
.Protect PassWord:="jeremy0"
End With
.Close True
End With
End Sub