Microsoft 365 Fusion onglet, au choix

Scorpio à dit:

et les ajouts prochains.

Cliquez pour agrandir...

  F = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juiller", "Août", "Sept", "Oct", "Nov", "Déc")
  For s = 2 To Sheets.Count
    OK = 0 ' OK=0 la feuille n'est pas traitée, OK=1 alors la feuille doit être traitée.
    NomFeuille = Sheets(s).Name
    For N = 0 To 11
        If NomFeuille = F(N) Then
            OK = 1 ' Si nom feuille est un mois alors OK=1 et on traitera la feuille
            Exit For
        End If
    Next N
    If OK = 1 Then Range(Sheets(s).[A2], Sheets(s).[A65000].End(xlUp).End(xlToRight)).Copy [A65000].End(xlUp).Offset(1, 0)
  Next s

Hasco à dit:

Bonsoir,

Dans le classeur joint, sans macro, un tableau issue de la requête power query "RQ_Consolidation" qui rassemble toutes les données des feuilles de Janvier à Décembre.
Un autre tableau fait la récap (Totalisation annuelle) des prestations par Nom/Prénom
Lorsque les données changent dans l'une ou l'autre des feuille mensuelles, -> onglet "Données" bouton "Actualiser tout"

Les tableaux de données on été transformés en tableau structurés nommés "T_Janvier" à "T_Décembre"

Cordialement

Cliquez pour agrandir...