Cette leçon combine Dir() et Workbooks.Open pour additionner automatiquement le nombre de bénévoles de plusieurs antennes locales, chacune suivie dans son propre classeur.

Sub ConsoliderBenevoles()
    Dim nomFichier As String
    Dim classeurAntenne As Workbook
    Dim totalBenevoles As Integer
    totalBenevoles = 0

    nomFichier = Dir("C:\Antennes\*.xlsx")

    Do While nomFichier <> ""
        Set classeurAntenne = Workbooks.Open("C:\Antennes\" & nomFichier)
        totalBenevoles = totalBenevoles + classeurAntenne.Worksheets(1).Range("B1").Value
        classeurAntenne.Close SaveChanges:=False
        nomFichier = Dir()
    Loop

    MsgBox totalBenevoles
End Sub

Chaque fichier .xlsx du dossier "Antennes" est ouvert tour à tour, son nombre de bénévoles en B1 de la première feuille est ajouté au total, puis le classeur est refermé avant de passer au fichier suivant renvoyé par Dir().

À vous de jouer : adaptez cette macro pour afficher aussi, dans le message final, le nombre de fichiers d'antennes traités.