Sommer sans additionner les lignes masquées

Re,

effectivement sous.total ne fonctionne qu'avec les filtre et non sur les lignes masquée manuellement. Toutes mes excuses.

Je te propose une fonction pour faire ce que tu veux : (à coller dans un module)

Function SommeSansMasquée(Plage As Range, Optional QueMasquée As Boolean = False)
    Dim C
    For Each C In Plage.Cells
        If C.EntireRow.Hidden = QueMasquée Then
            SommeSansMasquée = SommeSansMasquée + C.Value
        End If
    Next
End Function

SommeSansMasquée(plage, [Vrai/Faux par défaut])

L'utilisation est = SommeSansMasquée(plage) ==> somme des lignes non masquées
j'ai ajouté une option = SommeSansMasquée(plage,vrai ) ==> somme des lignes masquées
La première syntaxe correspond à = SommeSansMasquée(plage, faux) mais faux est optionnel.

J'espère que cela t'aidera à défaut de trouver une formule directemetn sous Excel.

J'apporte une modification à la fonction précédente

Function SommeSansMasquée(Plage As Range, Optional QueMasquée As Boolean = False)
    Dim C
    For Each C In Plage.Cells
        If QueMasquée Then
            If IsNumeric(C) And (C.EntireRow.Hidden = True Or C.EntireColumn.Hidden = True) Then
                SommeSansMasquée = SommeSansMasquée + C.Value
            End If
        Else
            If IsNumeric(C) And C.EntireRow.Hidden = False And C.EntireColumn.Hidden = False Then
                SommeSansMasquée = SommeSansMasquée + C.Value
            End If
        End If
    Next
End Function

Pour que cela fonctionne aussi bien sur des lignes ou des colonnes et même s'il y a du texte dans les cellules.

NB : il vaut mieux utiliser Sous.total (109;) si c'est posssible.