Couleur de texte dans zone fusionnée

Sub test()
Dim TexteLibelleStatus As String
Dim TexteSaisi As String
Dim l_length As Long
Dim l_start As Long
With ActiveCell
    'With .Range(Cells(LgTrav, ColDebut), Cells(LgTrav, ColFin))
        .Interior.ColorIndex = 1
        .Interior.Pattern = xlSolid
        .Font.ColorIndex = 2
         
         'TexteSaisi = TextBox2.Value
         TexteLibelleStatus = vbTab & "STATUS:" & vbTab
         .Value = TexteSaisi & TexteLibelleStatus & "CLOSED"
         
         l_start = Len(TexteSaisi) + Len(TexteLibelleStatus) + 1
         l_length = Len("CLOSED")
        .Characters(Start:=l_start, Length:=l_length).Font.Color = vbGreen
        
    End With
End Sub