Conflit entre 2 fonctions somme

Bonjour,

Jai créé 2 fonctions somme ci dessous chacune dans un module :

La 1ère fonction :

Private Function SommeX(PlageSomme As Range) As Variante
Application.Volatile
Dim Cellule As Range
Dim Somme As Double
For Each Cellule In PlageSomme
If Cellule.Interior.Pattern <> xlGray25 Then
Somme = Somme + Cellule
End If
Next
SommeX = Somme
End Function

La 2ème fonction :

Private Function SommeY(ValTxt, PlageSom As Range) As Variante
Application.Volatile
Dim Cel As Range
Dim Som As Double
For Each Cel In PlageSom
If Cel.Interior.Pattern <> xlGray25 And ActiveSheet.Cells(Cel.Row, 12) = ValTxt Then
Som = Som + Cel
End If
Next
SommeY = Som
End Function

Ces fonctions sont appelées chacune par une feuille différente (SommeX est utilisée dans Feuil1 et SommeY dans Feuil2).

Mon problème est : Si je mets à jour Feuil1 avec SommeX puis Feuil2 avec SommeY, si je réaffiche Feuil1 toutes les cellules contenant SommeX sont à zéro. Il faut que je double clic dans une cellule et fasse "entrer" pour qu'elles se mettent toutes à jour.

Mais si je fais l'inverse, c'est à dire je mets à jour Feuil2 avec SommeY puis Feuil1 avec SommeX pas de problème...

Merci pour votre aide