VBA: Mise en forme cond. dans s-formulaire continu

Bonjour à tous,

Dans un sous-formulaire en "mode continu", j'ai essayer le code suivant afin
que la couleur de fond du champs "ETAGE" du sous-formulaire soit en une
certaine couleur selon l'étage:

'Mise en forme conditionnelle de la couleur
Dim rstSFMSTOCKGEST As DAO.Recordset

MyForm = Screen.ActiveForm.Name

With Forms(MyForm)

Set rstSFMSTOCKGEST = !sfmSTOCKGEST.Form.Recordset

rstSFMSTOCKGEST.MoveFirst

Select Case !sfmSTOCKGEST.Form.ETAGE.Value
Case Is = 1 'Bleu
!sfmSTOCKGEST.Form.[ETAGE].BackColor = RGB(0, 0, 255)
!sfmSTOCKGEST.Form.[ETAGE].ForeColor = RGB(0, 0, 255)
Case Is = 2 'Rouge
!sfmSTOCKGEST.Form.[ETAGE].BackColor = RGB(255, 0, 0)
!sfmSTOCKGEST.Form.[ETAGE].ForeColor = RGB(255, 0, 0)
Case Is = 3 'Vert
!sfmSTOCKGEST.Form.[ETAGE].BackColor = RGB(0, 180, 0)
!sfmSTOCKGEST.Form.[ETAGE].ForeColor = RGB(0, 180, 0)
Case Is = 4 'Jaune
!sfmSTOCKGEST.Form.[ETAGE].BackColor = RGB(255, 255, 0)
!sfmSTOCKGEST.Form.[ETAGE].ForeColor = RGB(255, 255, 0)
Case Else 'Vide
!sfmSTOCKGEST.Form.[ETAGE].BackColor = RGB(255, 255, 255)
!sfmSTOCKGEST.Form.[ETAGE].ForeColor = RGB(255, 255, 255)
End Select
rstSFMSTOCKGEST.MoveNext

end with

Le problème est que tous mes enregistrements se trouvant dans le
sous-formulaire se colore de la même couleur.

J'ai bien essayer en attendant d'utiliser le mise en forme conditionnelle
"standard" d'access, mais mon problème est que j'ai 5 conditions alors que
cette fonction n'en permet que 3.

Si qq a une solution, ce serai sympa.

--
Stach ;-)