Total sous condition

Salut c'est encore moi "Titine" !!
Suite à votre accueil chaleureux, je me permets de vous poser une autre
question mais plus complexe. Je m'explique :

Dans la colonne V j’ai des Oui ou des Non
Les oui ou les Non sont le résultat d’une opérations de SI. Dont les valeurs
sont en colonne S
Je souhaite en V27 la somme de toutes les cases de la colonne S
Mon tableau = (A2 :V26)

S V

1 Oui
5 Non
2 Oui
6 Oui
5 Oui
4 Oui

V27 doit être le résultat = 18 (Total 23 sauf les 5 qui correspondent à la
valeur Non, soit 23 – 5 = 18)

Je souhaite le faire sans ajouter de calcul dans une autre cellule, j’y
arrive par VBA mais je recherche la formule qui permet de remplacer le code
suivant :

Sub TotalMontantOui()

Dim Totall, SousTot
Totall = 0

Range("V3").Select
While ActiveCell <> ""
If ActiveCell.Value = "Oui" Then SousTot = ActiveCell.Offset(0,
-3).Value
Totall = Totall + SousTot
SousTot = 0
ActiveCell.Offset(1, 0).Select

If ActiveCell.Value = "Non" Then ActiveCell.Offset(1, 0).Select
Wend

ActiveCell.Offset(2, 0).Select
ActiveCell.Value = Totall

MsgBox ("Total pronostic = " & Totall)

End Sub

Pouvez vous m’aider à écrire cette formule ??

Merci d'avance aux personnes qui me répondront.