Masquer des lignes selon couleur sans modifier le résultat ...

Bonjour,

J'utilise cette formule afin de masquer dans mon tableau toutes mes lignes rouges (colorisées manuellement sans MFC) :

Sub test()
Dim X As Long
Rows.Hidden = False
For X = 1 To [A65536].End(xlUp).Row
If Range("A" & X).Interior.ColorIndex = 3 Then _
Rows(X).Hidden = True
Next X
End Sub

Jusque là tout va bien!
Le hic c'est que le montant de ces lignes rouges est pris en compte pour faire un total (en effet lignes rouges dans mon tableau = paiements débités). Et que lorsque j'applique ma formule ci dessus, le montant de mes totaux débités disparaît pour afficher #VALEUR!

Je calcule le montant de mon total débités avec cette formule :

Function SommeSiCouleur(Plage As Range, NumeroDeCouleur%) As Currency
Application.Volatile True
Dim wCell As Range
For Each wCell In Plage
If wCell.Interior.ColorIndex = NumeroDeCouleur Then
SommeSiCouleur = SommeSiCouleur + wCell.Value
End If
Next
End Function

'Formule à insérer dans cellule pour appeler la fonction
'=SommeSiCouleur($C$1:$C$34;3)

Ma question : comment masquer les lignes rouges de mon tableau sans pour autant affecter le calcul de leur montant total...

NB : Je précise que si je fais manuellement clic droit "masquer" sur les lignes rouges, elles disparaissent et mon montant n'est pas affecté...

Merci pour votre aide !!!

Cordialement+++