Faire somme suivant motif et texte

Bonjour,

Je souhaite créer une fonction sous VBA me permettant de faire la somme des cellules de la colonne "P" si :
- ces cellules ont un motif
- la cellule sur la même ligne mais dans la colonne "L" contient le texte "toto"

J'ai tenté ça mais ça ne fonctionne pas et je tourne en rond malgres que je suis persuadée que c'est simple...

Function SommeCouleur(PlageSomme As Range, PlageCouleur As Range, ValTxt) As Variant
Dim Cel As Range
Dim Som As Double
Application.Volatile
For Each Cel In PlageSomme
If Cel.Interior.Pattern=PlageCouleur.Interior.Pattern And Cel.Cells(Cel, 12)=ValTxt Then
Som=Som+Cel
End If
Next
SommeCouleur=Som
End Function

Merci pour votre aide!

PS : J'espère que vous pourrez lire le code correctement car j'ai bien mis les balises "code" mais sur mon IPhone je ne vois pas la différence...