Liste dynamique avec condition

Bonjour,

J'ai une base de donnée avec le nom des agents avec leurs fonctions.

Je voudrais que ceux seuls qui ont la fonction "AS" soit visible dans la feuille "COMPTEUR VIERGE". La liste des agents évolue constamment, j'ai besoin qu'elle soit dynamique, quand une nouvelle ligne avec un agent avec la fonction "AS" est créé dans la feuille "ListeAgents" alors elle se retrouve sur la colonne en "A" dans "COMPTEUR VIERGE".

Si quelqu'un peut m'expliquer comment y arriver ?

Merci de l'aide que vous m'apporterez et du temps que vous consacrez.

Ci-joint le fichier :

Bonjour,

Voici un essai avec une macro qui se déclenche au lors d'une saisie sur la colonne FONCTION de la feuille ListeAgents :

Private Sub Worksheet_Change(ByVal Target As Range)
Set r = Intersect(Target, Range("Tableau1[FONCTION]"))
If Not r Is Nothing Then
    For Each cell In r.Cells
        If cell.Value = "AS" Then
            snom = Intersect(Range("Tableau1[IDENTITE]"), cell.EntireRow).Value
            With Sheets("COMPTEUR - VIERGE").Range("Tableau3[NOMS]")
                If Application.CountIf(.Cells, snom) = 0 Then .Cells(.Rows.Count + 1, 1).Value = snom
            End With
        End If
    Next cell
End If
End Sub

J'ai renommé quelques éléments (des colonnes) mais vous y gagneriez à renommer davantage vos feuilles, tableaux et colonnes pour les rendre les noms plus courts et clairs (avec moins de risques d'erreur dans le code). En tout cas, toute modification doit faire l'objet d'une correction correspondante dans le code.

Cdlt,

Merci 3GB pour votre réponse.

Alors ca fonctionne a chaque mise à jour oui. Je ferais plus attentions aux noms.

Merci encore !