Sub Macro1()
Dim o As Object 'déclare la variable o (Onglets)
Dim t As Double 'déclare la variable t (Total)
Dim tt() As Double 'déclare le tableau de variables indexées tt(Tableau des Totaux)
Dim i As Byte 'déclare la variable i (Incrément)
For Each o In Sheets 'boucle sur tous les onglets du classeur
If o.Name = "onglet source" Then GoTo suite 'à adapter à ton cas, il te faudra éliminé de la liste le ou les onglets ne contenant pas de tableau
t = o.UsedRange.SpecialCells(xlCellTypeLastCell).Value 'définit la valeur du total t (à adapter à ton cas)
If t = 0 Then GoTo suite 'si la total est égal à zéro va à l'étiquette suite
ReDim Preserve tt(i) 'redimentionne le tableau tt
tt(i) = t 'attribut à la variable indexée tt(i) la valeur de t
i = i + 1 'incrémente i
suite: 'étiquette
Next o 'prochain onglet de la boucle
'tu devrais te retrouver avec le tableau tt contenant tous les totaux...
End Sub