Worksheets("soldées ").Cells(NBsold, 11) = Cells(i, 11).Value
Range(Cells(i, 1), Cells(i, 13)).Copy ActiveWorkbook.Worksheets("soldées ").Cells(NBsold, 1)