Private Sub Worksheet_Activate()
Dim ncol%, tablo, resu(), i&, x$, n&, j%
ncol = 14 'suivant besoin
tablo = Feuil1.UsedRange.Resize(, ncol + 6) 'matrice, plus rapide
ReDim resu(1 To UBound(tablo), 1 To ncol)
For i = 15 To UBound(tablo)
x = tablo(i, 2)
If x <> "" And x <> "CH" And x <> "FDS" Then
n = n + 1
resu(n, 1) = x
For j = 2 To ncol
resu(n, j) = tablo(i, j + 6)
Next j
End If
Next i
'---restitution---
If FilterMode Then ShowAllData 'si la feuille est filtrée
With [C13] 'cellule à adapter
If n Then .Resize(n, ncol) = resu
.Offset(n).Resize(Rows.Count - n - .Row + 1, ncol).ClearContents 'RAZ en dessous
End With
With UsedRange: End With 'actualise la barre de défilement verticale
End Sub