colorer une cellule a partir d'une fonction custom

Bonjour,

J'ai ecris une fonction custom (dans un module) qui fonctionne tres bien...
maintenant je souhaite ameliorer ma fonction en colorant la cellule avec differentes couleurs suivant un test...
Impossible de faire colorer la cellule...
mon code est:
ColorCell = 6 'jaune
Worksheets('Reporting').Activate
Sheets('Reporting').Cells(CurrentColumn, CurrentRow).Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Selection.Font.ColorIndex = 3

Par avance merci de vos conseils,

bonne journee,

Daniel.