Sub tata()
Dim i&, j&, k&, fl As Worksheet, plg As Range, v(7)
k = 1
Set fl = Worksheets("Tableau Statistiques")
With fl.Range("A2"): fl.Range(.Cells, .End(xlDown).End(xlToRight)).Clear: End With
With Worksheets("Arbre")
For i = 1 To 600 'À adapter.
On Error GoTo Manque
Set plg = .Cells.Find(What:=CStr(i), LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext)
For j = 0 To 3: v(j) = plg.Offset(j).Value: Next
v(4) = plg.Offset(3, 1).Value
v(5) = plg.Offset(4).Value
v(6) = plg.Offset(4, 1).Value
v(7) = plg.Offset(5).Value
k = k + 1
fl.Cells(k, 1).Resize(1, 8).Value = v
R: Next
End With
Exit Sub
Manque:
Resume R
End Sub