Public Sub CopierLignesFiltrées()
Dim DerLigFiltrée As Long
Dim DerCol As Long
Dim Rng As Range
Const NoLigneTitre = 2
Const NbColonnesAvantDonnées = 0
DerCol = ActiveSheet.Cells(NoLigneTitre, Columns.Count).End(xlToLeft).Column
DerLigFiltrée = ActiveSheet.Cells(Rows.Count, NbColonnesAvantDonnées + 1).End(xlUp).Row
Set Rng = ActiveSheet.Cells(NoLigneTitre + 1, NbColonnesAvantDonnées + 1).Resize(DerLigFiltrée - NoLigneTitre, DerCol - NbColonnesAvantDonnées)
'MsgBox Rng.Address
Rng.SpecialCells(xlCellTypeVisible).Copy
End Sub