Filtre appliqué sur 3 feuilles en meme temp

Re Forum,

Est il possible d'appliquer la macro sur les deux autres feuilles 2 et 3 simultanement?

Voir fichier pour illustration.

Merci

https://www.excel-pratique.com/~files/doc2/b1CbBkikim_Classeur1.xls

Salut le forum

Kimkim, je me suis basé sur ta macro

Sub test()

Dim Tablo
Dim I As Byte
Dim N As Byte
Dim C

Sheets("statis").Range("A5:B65536").ClearContents
Tablo = Array("Feuil1", "Feuil2", "Feuil3")

For I = 0 To UBound(Tablo)
  For N = 5 To Sheets(Tablo(I)).Range("U65536").End(xlUp).Row

    Set C = Sheets("statis").Columns(1).Find(Sheets(Tablo(I)).Range("U" & N), LookIn:=xlValues, lookat:=xlWhole)

    If Not C Is Nothing Then
      C.Offset(0, 1) = C.Offset(0, 1) + 1
    Else
      Sheets("statis").Range("A65536").End(xlUp).Offset(1, 0) = Sheets(Tablo(I)).Range("U" & N)
      Sheets("statis").Range("A65536").End(xlUp).Offset(0, 1) = 1
    End If

  Next N
Next I

Set C = Nothing

End Sub

Mytå

Sinceres remerciements Usb512,

Ca marche tres bien,

Crdt