Private Sub Worksheet_Activate()
Dim L As Long, N As Long, F As Worksheet, NbL As Long
L = 5
For N = 2 To Me.Index - 1
Set F = ThisWorkbook.Worksheets(N)
NbL = F.[M4].Value
If NbL > 0 Then
Me.Cells(L, 2).Resize(NbL, 8).Value = F.Cells(8, 2).Resize(NbL, 8).Value
L = L + NbL
End If
If F.[M2].Value = "TR" Then
Me.Cells(L, 2).Resize(1, 8).Value = F.Cells(119, 2).Resize(1, 8).Value
L = L + 1
End If
Next N
Me.Cells(L, 2).Resize(Me.Rows.Count - L, 8).ClearContents
End Sub