Microsoft 365 Valeur Label suivant couleur TextBox

Private Sub ScrollBar1_Change()
    Ligne = ScrollBar1.Value
    TextBox1 = ActiveSheet.Range("A" & Ligne)
    TextBox2 = ActiveSheet.Range("B" & Ligne)
    TextBox3.BackColor = ActiveSheet.Range("C" & Ligne).DisplayFormat.Interior.Color
    TextBox3 = ActiveSheet.Range("C" & Ligne)
    Application.StatusBar = "Mfc Color = " & TextBox3.BackColor
End Sub

Private Sub TextBox3_Change()
'Si TextBox3 verte  ecrire "Ok"         dans label1
'Si TextBox3 bleu   ecrire "Traitement" dans label1
'Si TextBox3 Voliet ecrire "Contrôle"   dans label1
'Si TextBox3 jaune  ecrire 'En cours"   dans label1
'Si TextBox3 blanc  ecrire 'En attente" dans label1
Select Case Me.TextBox3.BackColor
 Case 16777215:   Me.Label1.Caption = "En attente" 'Blanc
 Case 5296274:    Me.Label1.Caption = "Ok"         'vert
 Case 6299648:    Me.Label1.Caption = "Traitement" 'bleu
 Case 10498160:   Me.Label1.Caption = "Contrôle"   'violet
 Case 10092543:   Me.Label1.Caption = "En cours"   'jaune
 End Select
End Sub

Private Sub UserForm_Initialize()
    With ScrollBar1
        .Min = 2
        .Max = Columns("A").SpecialCells(xlCellTypeLastCell).End(xlUp).Row
        Feuil1.[A2].Select
        .Value = Selection.Row
    End With
End Sub