Synthèse par Noms ou Mots

Bonjour à tous,

je butte sur une question certainement bête pour tout bon programmateur en VBA qui a sûrement été abordée sur ce forum mais je n'ai trouvé aucun exemple adaptable.

je dois

1 - balayer une liste de mouvements comptables (dont je ne vous ai mis qu'un extrait),

2- repérer dans cette dernière le nom de mes collègues ( un extrait aussi, la liste est plus longue),

3- synthétiser la situation pour chacun d'eux sur d'autres onglets ou sous toutes autres formes exploitables.

Merci pour votre aide.

Bonjour,

Mets le nom comme nom d'onglet

Tu peux recopier les onglets à l'infini

Sub filtrer()
    Sheets(1).Cells(Rows.Count, 1).End(xlUp).CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("A4:B4"), Unique:=False
End Sub

Un peu plus polyvalent encore ...

En A2 de chaque feuille :

="*"&DROITE(CELLULE("nomfichier";A1);NBCAR(CELLULE("nomfichier";A1))-TROUVE("]";CELLULE("nomfichier";A1)))&"*"

ensuite le code plus générique

Sub filtrer()
    Sheets(1).Cells(Rows.Count, 1).End(xlUp).CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A1").CurrentRegion, CopyToRange:=Range("A4").CurrentRegion.Resize(1), Unique:=False
End Sub

GÉNIAL ! T'es un génie. Milles mercis

Merci pour ce retour qui froisse ma modestie.