Sub JEREMY()
Dim nFichier As String, dl As Long
Dim wbSOURCE As Workbook, wbDESTINATION As Workbook
Dim A_COPIER As Range
nFichier = "C:\Users\Jérémy\Desktop\ok\Nouveau dossier (2)\archive\TDB Historique 2014.xlsx"
'nFichier = "C:\Temp\TDBHisto2014.xlsx" 'ici pour test A SUPPRIMER
Set wbSOURCE = ThisWorkbook: Set A_COPIER = wbSOURCE.Sheets(1).Range("A7:G7")
Set wbDESTINATION = Workbooks.Open(nFichier)
With wbDESTINATION
With .Sheets(1)
.Unprotect Password:="blabla"
A_COPIER.Copy
dl = .Cells(Rows.Count, 1).End(xlUp).Row
Cells(dl + 1, 1).PasteSpecial xlValues
.Protect Password:="blabla"
End With
.Close True
End With
End Sub