Couleur de fond dans TextBox selon condition

Private Sub UserForm_Activate()
    Set UsF = Me
    Call SetTB
End Sub

Public UsF As Object
Private Cnt As MSForms.Control, Tb() As New Classe1, i As Long
Sub SetTB()
    For Each Cnt In UsF.Controls
        If TypeName(Cnt) = "TextBox" Then
            ReDim Preserve Tb(i)
            Set Tb(i) = New Classe1
            Tb(i).SetTextBox Cnt
            i = i + 1
        End If
    Next
End Sub

Public WithEvents txt As MSForms.TextBox
Private Sub txt_Change()
    Select Case Val(Right(txt.Name, Len(txt.Name) - 7))
        Case 3 To 189
            If txt.Value = "GS" Then txt.BackColor = &HFF00&
            If txt.Value = "RP" Then txt.BackColor = &HFFFF00
    End Select
End Sub
Sub SetTextBox(ByVal txb As MSForms.TextBox)
    Set txt = txb 'ne pas toucher
End Sub

Option Explicit
Private mestb() As New Classe1
Private Sub UserForm_Initialize()
Dim i As Byte
For i = 0 To 186
    ReDim Preserve mestb(0 To i)
    Set mestb(i).montb = Me.Controls("TextBox" & i + 3)
Next i
End Sub

Option Explicit
Public WithEvents montb As MSForms.TextBox
Private Sub montb_Change()
With montb
    If .Value = "GS" Then .BackColor = &HFF00&
    If .Value = "RP" Then .BackColor = &HFFFF00
End With
End Sub

Dim txt(3 To 189) As New Classe1, i As Byte
Private Sub UserForm_Initialize()
For i = 3 To 189: Set txt(i).txt = Controls("Textbox" & i): Next i
End Sub

Public WithEvents txt As MSForms.TextBox
Private Sub txt_Change()
With txt
    If .Value = "GS" Then .BackColor = &HFF00&
    If .Value = "RP" Then .BackColor = &HFFFF00
    If .Value <> "RP" And .Value <> "GS" Then .BackColor = &H80000005
End With
End Sub

Option Explicit
Public WithEvents montb As MSForms.TextBox
Private Sub montb_Change()
With montb
    .BackColor = IIf(.Value = "GS", &HFF00&, IIf(.Value = "RP", &HFFFF00, &H80000005))
End With
End Sub

Option Explicit
 Private mestb() As New Classe1
 Private Sub UserForm_Initialize()
 Dim i As Byte
 For i = 0 To 186
     ReDim Preserve mestb(0 To i)
     Set mestb(i).montb = Me.Controls("TextBox" & i + 3)
 Next i
 End Sub