Pb re rafraichissement de donnees

Re Hello tout le monde


j'ai le problemes suivants : on viens de m'aider un elaborer la fonction suivante :

Public Function NbColor(Plage As Range, vCellcolor As Range) As Byte
Dim vColorTest As Long
Dim Compteur As Long
Dim vColorCell As Range

Compteur = 0
vColorTest = vCellcolor.Interior.Color
For Each vColorCell In Plage
If vColorCell.Interior.Color = vColorTest Then
Compteur = Compteur + 1
End If
Next vColorCell

NbColor = Compteur
End Function


Mais le rafraichissement ne se fait pas lors que je midifie la selection
que dois je faire pour cela


merci