J'utilise dans une macro un filtrage automatique du type Selection.AutoFilter Field:=1, Criteria1:=DR.Value Selection.AutoFilter Field:=2, Criteria1:=Mag.Value Comment par macro copier la ou les ligne(s) résultante(s) du filtrage dans une nouvelle feuille.

Copie la procédure qui suit dans un module, Il est supposé que le filtre automatique a déjà eu lieu avant de lancer cette procédure.

sub RecupereDataAutofiltre()
 
 Dim Destination As Range
 
 'Définis ta plage où sera copiée les données.
 'si même feuille oublis "Sheets" seulement Range(??)
 Set Destination = Sheets(3).Range("A1")
 
 Dim MaPlage As Range
 
 'représente les données filtrées et les titres.
 Set MaPlage = Sheets("NomdeTaFeuille").AutoFilter.Range
 
 'représente seulement les données
 Set MaPlage = MaPlage.Offset(1, 0).Resize(MaPlage.Rows.Count - 1,
 MaPlage.Rows.Count)
 
 MaPlage.Copy Destination
 
 end sub