Sub tt()
Dim i&, j&, Plage As Range
j = Cells(Rows.Count, 1).End(xlUp).Row
For i = j To 2 Step -1
If Cells(i, 1) <> Cells(i - 1, 1) Then GoTo Suite
Next
Suite:
Set Plage = Range(Cells(i, 1), Cells(j, 15))
Workbooks.Open ThisWorkbook.Path & "\essai2.xls"
j = ActiveSheet.Cells(Rows.Count, 1).End(xlUp)(2).Row
Plage.Copy
ActiveSheet.Cells(j, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub