somme

=PRODUITMAT(1;SOMME(INDIRECT("'"&LIGNE($1:$31)&"'!O8")))

=SOMME(SOMME(INDIRECT("'"&LIGNE($1:$31)&"'!O8")))

=MIN(SOMME(INDIRECT("'"&LIGNE($1:$31)&"'!O8")))

=MAX(SOMME(INDIRECT("'"&LIGNE($1:$31)&"'!O8")))

Function SSomme(ParamArray Plg() As Variant)
'
'--- 30 Prairial CCXX (chariot) --- ROGER2327 fecit ---'
'
Application.Volatile 'Facultatif
'
Dim i&, j&, k&, Cel As Range, s$(), v As Variant
'
'--- Recherche des feuilles à traiter. ----------------'
    For i = 1 To Worksheets.Count
        If IsNumeric(Worksheets(i).Name) Then
            k = k + 1
            ReDim Preserve s(k)
            s(k) = Worksheets(i).Name
        End If
    Next
'
'--- Sommation. ---------------------------------------'
    For i = 1 To k 's(0)
        For j = 0 To UBound(Plg)
            For Each Cel In Plg(j).Cells
                With Worksheets(s(i)).Range(Cel.Address)
                    If Not IsEmpty(.Cells) Then If IsNumeric(.Cells) Then v = v + .Value
                End With
            Next
        Next
    Next
'
    SSomme = IIf(IsEmpty(v), "", v)
'
End Function

Function SSomme(ParamArray Plg() As Variant)
'
'--- 30 Prairial CCXX (chariot) --- ROGER2327 fecit ---'
'
Application.Volatile 'Facultatif
'
Dim i&, j&, Cel As Range, v As Variant
'
    For i = 1 To Worksheets.Count
        If IsNumeric(Worksheets(i).Name) Then
            For j = 0 To UBound(Plg)
                For Each Cel In Plg(j).Cells
                    With Worksheets(i).Range(Cel.Address)
                        If Not IsEmpty(.Cells) Then If IsNumeric(.Cells) Then v = v + .Value
                    End With
                Next
            Next
        End If
    Next
'
    SSomme = IIf(IsEmpty(v), "", v)
'
End Function