je sais ca n'a rien a faire ici, mais bon sur le forum prog ca donne que dalle
donc voila ma fonction :  
 
Function trouverCouleur(J, c)
Select Case J
   Case 0
         trouverCouleur = "Bleu"
   Case 1 To 5
       Select Case c
           Case 28800 To 64800
           trouverCouleur = "Rouge"
           Case Else
           trouverCouleur = "Bleu"
        End Select
   Case 6
       Select Case c
           Case 28800 To 43200
           trouverCouleur = "Rouge"
           Case Else
           trouverCouleur = "Bleu"
       End Select
   End Select
End Function
 
elle prend 2 entiers (j [0,6] et c divers) et doit retourner bleu ou rouge ds une cellule, mais ca marche po...