' ---- En BX2 =SommeCellulesVisibles(BX4:BX1000)
' -------Dans le module 1
' ---------------------------------------------
Function SommeCellulesVisibles(Plage As Range) As Double
Dim plg As Range
Dim Total As Double
For Each plg In Plage
If plg.Rows.Hidden = False And plg.Columns.Hidden = False Then
Total = Total + plg.Value
End If
Next
SommeCellulesVisibles = Total
End Function
' ------------------------------------------------------------