Mise en couleur caractère à partir d'un code hexadécimal

Sub couleurRVB()
    Dim lig As Long, derlig As Long
    Dim R As Long, V As Long, B As Long
    derlig = Cells(Rows.Count, 4).End(xlUp).Row
    For lig = 2 To derlig
        R = CLng("&h" & Cells(lig, 1))
        V = CLng("&h" & Cells(lig, 2))
        B = CLng("&h" & Cells(lig, 3))
        Cells(lig, 4).Interior.Color = RGB(R, V, B)
    Next lig
End Sub

Sub patternCouleur()
    Dim lig As Long, derlig As Long
    derlig = Cells(Rows.Count, 4).End(xlUp).Row
    For lig = 2 To derlig
        patternCouleurLig (lig)
    Next lig
End Sub

Sub patternCouleurLig(lig As Long)
    Dim s As String
    Dim R As Long, V As Long, B As Long
    R = CLng("&h" & Cells(lig, 1))
    V = CLng("&h" & Cells(lig, 2))
    B = CLng("&h" & Cells(lig, 3))
    s = String(8, Chr(CLng("&h" & Cells(lig, 4))))
    Application.EnableEvents = False
    Cells(lig, 5) = String(8, Chr(CLng("&h" & Cells(lig, 4))))
    Cells(lig, 5).Font.Color = RGB(R, V, B)
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Row = 1 Or Target.Column > 4 Then Exit Sub
    patternCouleurLig (Target.Row)
End Sub