Macro avec données évolutives

Bonjour,

J'ai besoin de réaliser un fichier qui me permet de retrouver différentes données (Point de Conso, Ref, Designation) issues d'un tableau de données en cliquant sur une cellule (ex:Module1). J'ai utilisé une macro, cela marche trés bien mais je rencontre un problème lorsque je dois mettre à jour ce tableau.

En effet, certaines données sont amenées à être remplacée par d'autres données, supprimée ou encore de nouvelles données peuvent venir s'ajouter à cette liste.

C'est ici que mon problème se situe, je ne sais pas comment faire pour que ma macro englobe les nouvelles données puisque le champ saisi correspond uniquement au données que j avais à ce moment la, puis les futures données ne seront pas forcément classées dans le bon ordre.

Merci de bien vouloir m'aider.

Ci joint un fichier exemple simplifié (les données réelles étant confidentielles)

Bonsoir,

Tu as oublier l'exemple en question !

Claude

Voici le fichier exemple:

Bonjour,

Ton exemple avec filtre élaboré

dans le VBE de la feuille ("Feuil1")

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("b3")) Is Nothing Then
        Call Filtre
    End If
End Sub

dans un module

Sub Filtre()
    Application.ScreenUpdating = False
    With Sheets("Feuil1")
        Sheets("Base").Range("a1:c" & Sheets("Base").[a65000].End(xlUp).Row) _
        .AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
        .Range("k1:k2"), CopyToRange:=.Range("d4:f4"), Unique:=False
    End With
End Sub

Amicalement

Claude