Sub filtre_row_multi()
'Filtre sur la zone de critère renseignée avec plusieurs feuilles
DerniereLigne = Sheets("Feuil1").UsedRange.Rows.Count
Sheets("DATA").Range("A:C").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Feuil1").Range("B1:" & "B" & DerniereLigne), CopyToRange:=Sheets("Feuil1").Range("C1"), Unique:=False
DerniereLigne = Sheets("Feuil3").UsedRange.Rows.Count
Sheets("DATA").Range("A:C").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Feuil3").Range("B1:" & "B" & DerniereLigne), CopyToRange:=Sheets("Feuil3").Range("C1"), Unique:=False
End Sub