J'ai un grand tableau dont j'élimine avec un filtre la majorité des lignes. Le tableau filtré sert de source pour un tcd. Comment éliminer par macro les lignes filtrées ou faire une copie sur une autre feuille ?

Si vous souhaitez supprimer toutes les lignes masquées de votre tableau

sub SuppLignesMasquees()
 Dim cell
 Range("A1").CurrentRegion.Select
 For Each cell In Selection
  If cell.Rows.Hidden = True Then
   cell.EntireRow.Delete Shift:=xlUp
  End If
 Next
 end sub

=============== Si vous souhaitez copier les lignes filtrées vers une nouvelle feuille :

sub NouvelleListe()
 Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Rows.Copy
 ActiveWorkbook.Sheets.Add
 ActiveSheet.Name = "Mes2000Lignes"
 ActiveSheet.Paste
 end sub