gestion couleur VBA

Bonjour Thierry,
Pas tout à fait aléatoire, mais faute de merle.....

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'MPFE le 10/05/2005
lr = ActiveCell.Row
z = IIf(lr > 56, IIf(lr > 111, 1, 0) + lr - 56 * Int(lr / 56), lr)
y = Choose(z, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, _
2, 1, 1, 2, 1, 2, 1, 2, 1, 1, 1, 2, 2, 1, 2, 1, 1, 1, 1, 1, 1, 1, _
1, 2, 1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 2, 2)
Selection.Interior.ColorIndex = z
Selection.Font.ColorIndex = y
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Thierry" <anonymous@discussions.microsoft.com> a écrit dans le message de news:
1dca01c5553a$3bd731b0$a601280a@phx.gbl...
Bonjour,

Je souhaite en VBA mettre un fond de couleur aléatoire
sur une plage avec une couleur de police compatible avec
ma couleur de fond ? Est-ce possible ?

Merci d'avance