Pb de gestion de cellules.. HELP !!!

[ouaouane]

Bonjour tout le monde,

voilà je voulais à l'occaz de la tour du monde faire un fichier excel de pronostics. Pr cela j'ai développé 3 fonctions basiques dont l'une d'elle doit colorier la case d'une couleur lorsque le résultat est correct.

Bref, mon soucis c'est qu'à travers la fenetre de développement lorsque je test ma fonction du module tout se passe bien et colore ma cellule. Par contre qd je suis directement sur Excel cela me bloque au niveau de l'instruction cellule.Interior.ColorIndex = couleur

De plus je ne saisi pas du tout pourquoi lorsque j'appelle la fonction ColoreCellule le deboggeur me donne comme valeur de la cellule le score du match plutot que l'identité de la cellule (à savoir E2).

Ci dessous mes codes et ci joint le fichier xlsm...

Merci d'avance de m'éclairer la dessus car je n'y comprends pas grand chose...

Ouaouane

-------------------------------------------------------------------------------
Function ColoreCellule(cellule As Range, couleur As Integer) As Integer

With cellule
cellule.Interior.ColorIndex = couleur
End With
MsgBox "ColoreCellule"
ColoreCellule = 1
End Function
--------------------------------------------------------------------------------
Function CalculePoint(colonne As String) As Integer


Dim i As Integer
Dim tempPoint As Integer
Dim resultatTour As Integer
Dim valtmp As Integer

tempPoint = 0

For i = 2 To 3

resultatTour = compareResultat(Sheets(1).Range(colonne & i).Value, Sheets(1).Range("H" & i).Value)

tempPoint = tempPoint + resultatTour

If resultatTour = 2 Then
valtmp = ColoreCellule(Sheets(1).Range("E2"), 4)

Else
If resultatTour = 1 Then

valtmp = ColoreCellule(Sheets(1).Range(colonne & i), 6)
End If
End If

Next i

CalculePoint = CInt(tempPoint)

End Function