Private Sub Worksheet_Activate()
Dim tablo, resu(), i&, n&, j%
tablo = Sheets("LIVRES").[A1].CurrentRegion.Resize(, 8)
ReDim resu(1 To UBound(tablo), 1 To 5)
For i = 2 To UBound(tablo)
If IsNumeric(tablo(i, 8)) Then
n = n + 1
For j = 1 To 4: resu(n, j) = tablo(i, j): Next j
resu(n, 5) = tablo(i, 8)
End If
Next i
'---restitution---
If FilterMode Then ShowAllData 'si la feuille est filtrée
With [A2] '1ère cellule de destination
If n Then
.Resize(n, 5) = resu
.Resize(n, 5).Borders.Weight = xlThin 'bordures
End If
.Offset(n).Resize(Rows.Count - n - .Row + 1, 5).Delete xlUp 'RAZ en dessous
End With
With UsedRange: End With 'actualise la barre de défilement verticale
End Sub