TexBox.BackColor = Range. interior.color

Bonjour et merci.

J'ai une code que je me suis fait qui remplis les textboxs 1 a 27 selon A a I ligne du haut, active.row et ligne du bas sur cell variable:

a = -2
b = -1
For I = 1 To 27
UserForm2.Controls("Textbox" & I) = ActiveCell.Offset(b, a)

'CODE DE COULEURS ICI

a = a + 1
If I = 9 Then
b = 0
a = -2
End If

If I = 18 Then
b = 1
a = -2
End If
Next I

Je veut y mettre dans le textbox(i) la couleur Gris 'RGB(236, 233, 216) si l'activecell.interior.color est aucun
...et Bleu ...RGB(51, 102, 255)dans le textbox si la couleur est de la cell n'est pas auto(rien)

le code pour l'ajout de couleur est:

If ActiveCell.Offset(b, a).Interior.Color = xlNone Then
UserForm2.Controls("Textbox" & I).BackColor = RGB(236, 233, 216)
Else
UserForm2.Controls("Textbox" & I).BackColor = RGB(51, 102, 255)
End If

qui ma l'air pas pire mais les mets tous bleu! Je cherche mon erreur

En gros dans ma boucle en même temps que renseigne textbox ...textbox de la couleur si la cell est xlnone ...gris sinon bleu.

Merci

Temjeh