Recherchev

Le truc de Rénato : Attention ne réaliser un filtre élaboré qu'à partir de la feuille de destination des données…sinon….message d'erreur assuré !!!

Cliquez pour agrandir...

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Variant
Dim L As Long, I As Long
    If Target.Address(0, 0) = 'A1' Then
        Me.Range('B1:B65536').ClearContents
        L = 1
                With Sheets('Data')
                Plage = .Range('A2:B' & .Range('A65536').End(xlUp).Row)
                End With
       
                For I = 1 To UBound(Plage)
                    If Target.Value = Plage(I, 1) Then
                        Me.Cells(L, 2) = Plage(I, 2)
                        L = L + 1
                    End If
                Next
    End If
End Sub

Cliquez pour agrandir...

ColA ColB
48   Julie
48   Mathieu
48   Karine
47   Luc

Donc, je voudrais avoir dans un tableau la colonne A avec le chiffre 48 et dans la colonne B il va chercher tout ceux qui ont 48 dans la colonne A

Cliquez pour agrandir...