utiliser un "this cellule" dans une fonction [Résolu]

Bonjour,

je souhaite faire une fonction qui fasse un calcul en fonction du chiffre et de la couleur d'une cellule.
Cette fonction calcule bien la valeur mais ne permet pas avec application.volatile d'avoir un résulat calculé.
en effet, chacune des cellules renvoie le résultat de la derniere cellule sélectionnée.

il faudrait remplacer le Activecell.offset par quelque chose que je ne connais pas.
Auriez vous une idée ?
----------------------------------------------------------------------------------------------------
function fonction
'
Application.Volatile
'
If ActiveCell.Offset(0, -1).Font.ColorIndex = 3 Then
Fonction = ActiveCell.Offset(0, -1).Value + 2
ElseIf ActiveCell.Offset(0, -1).Font.ColorIndex = 4 Then
Fonction = ActiveCell.Offset(0, -1).Value + 5
ElseIf ActiveCell.Offset(0, -1).Font.ColorIndex = 45 Then
Fonction = ActiveCell.Offset(0, -1).Value + 10
Else
Fonction = ActiveCell.Offset(0, -1).Value
End If

end function
--------------------------------------------------------------------------------------