Macro pour filtrer et copier/coller des données

Bonjour,

J'ai un fichier Excel qui contient plusieurs pages base de données , les opérations sont les suivantes :

faire un filtre sur les quatre pages , copier le filtrage vers un autre feuille( filtre) a chque chagement de la celle a2

Merci de votre aide

Bonjour,

à tester,

Sub copy_filtre1()
Dim sh1, sh2
Dim LastRw&

Set sh = Sheets("filtre")

LastRw = sh.Cells(Rows.Count, 3).End(xlUp).Row + 1
crit = sh.Range("A2")

For i = 1 To 4
With Sheets("P" & i).Range("A1")
    If Not Sheets("P" & i).FilterMode Then
      .AutoFilter
    End If
    .AutoFilter Field:=1, Criteria1:="=" & crit
    .Range("_FilterDatabase").SpecialCells(xlCellTypeVisible).Copy sh.Range("C" & LastRw)
    LastRw = sh.Cells(Rows.Count, 3).End(xlUp).Row + 1
    .AutoFilter
End With
Next
End Sub

C'est parfait

Merci !

et merci pour tes bons conseils. c'est vraiment sympa!