Private Sub Worksheet_Activate()
Dim tablo, i&, n&
tablo = Sheets("Page 8").[B1].CurrentRegion.Resize(, 8) 'matrice, plus rapide
For i = 2 To UBound(tablo)
If tablo(i, 8) <> "" Then n = n + 1: tablo(n, 1) = tablo(i, 1)
Next
'---restitution---
With [D1].CurrentRegion 'à adapter
.AutoFilter: .AutoFilter 'si le tableau est filtré
If n Then .Offset(1).Resize(n, 1) = tablo
.Offset(n + 1).Resize(Rows.Count - n - .Row).EntireRow.Delete 'RAZ en dessous
End With
End Sub