Un classeur qui regroupe une feuille par région (Nord, Sud, Est...) peut être consolidé automatiquement avec For Each, sans avoir à ouvrir chaque feuille manuellement pour additionner ses ventes.

Sub TotalGeneralVentes()
    Dim feuille As Worksheet
    Dim totalGeneral As Double
    totalGeneral = 0

    For Each feuille In ThisWorkbook.Worksheets
        If feuille.Name <> "Synthèse" Then
            totalGeneral = totalGeneral + feuille.Range("B1").Value
        End If
    Next feuille

    MsgBox totalGeneral
End Sub

La boucle parcourt toutes les feuilles du classeur, en excluant explicitement la feuille "Synthèse" (qui ne contient pas de donnée régionale brute à additionner), et cumule la valeur trouvée en B1 de chaque feuille restante.

À vous de jouer : adaptez cette macro pour construire, au lieu d'un simple total, un message listant le nom de chaque région suivi de son total.