Option Explicit
Sub CopiePlage()
Dim TableauDonnees
Dim MaLigne As Integer
Dim x As Integer, y As Byte
TableauDonnees = Range('A2:S' & Range('A65536').End(xlUp).Row)
For x = 1 To UBound(TableauDonnees)
MaLigne = Sheets('Lot' & TableauDonnees(x, 1)).Range('A65536').End(xlUp).Row + 1
For y = 1 To 19
Sheets('Lot' & TableauDonnees(x, 1)).Cells(MaLigne, y) = TableauDonnees(x, y)
Next
Next
End Sub