Workbooks.Open ThisWorkbook.Path & "\3-SUIVI\CR\CR.xlsx"
Set WkCR = ActiveWorkbook
Dim FL2 As Worksheet
Set FL2 = Worksheets(1)
i = FL2.Range("B65536").End(xlUp).Row + 1
Dim j&
FL2.Cells(j + 1, 1).Value = Lots
FL2.Cells(j, 2).Value = WkB.Sheets(2).Range("B" & i)
FL2.Cells(j + 1, 2).Value = WkB.Sheets(2).Range("B" & i)
FL2.Cells(j + 2, 2).Value = WkB.Sheets(2).Range("E" & i)
FL2.Cells(j + 3, 2).Value = WkB.Sheets(2).Range("F" & i)
FL2.Cells(j + 4, 2).Value = WkB.Sheets(2).Range("G" & i) & WkB.Sheets(2).Range("H" & i)
FL2.Cells(j + 6, 2).Value = WkB.Sheets(2).Range("T" & i)
FL2.Cells(j + 6, 4).Value = "M." & WkB.Sheets(2).Range("D" & i)