Il faut prendre son temps et bien analyser les cellules sur lesquelles tu travailles. Voici le bon code :
Code:
Private Sub UserForm_Initialize()
UserForm1.TE = [A2]
If [A1] < [b1] Then
UserForm1.TE.ForeColor = RGB(255, 0, 0) 'Rouge
ElseIf [A1] > [b1] Then
UserForm1.TE.ForeColor = RGB(0, 0, 255) 'Bleu
End If
End Sub
De plus, évites de coder Range('A1') ou autre cellule par [A1].