Associer la couleur d'une case à des valeurs RGB contenues dans d'autres cases

Sub ColorerModèles(Feui As Worksheet)
Dim Rg As Range, Sh As Shape, NuSh As Integer, L As Integer, LDébM1 As Integer, Gauche As Single, Larg As Single
With Feui.[Modèle]: Gauche = .Left: Larg = .Width: End With
For NuSh = 1 To Feui.Shapes.Count
   If Left$(Feui.Shapes(NuSh).Name, 7) = "Couleur" Then Exit For
   Next NuSh
LDébM1 = Feui.[Tablo].Row - 1
For Each Rg In Feui.[Tablo].Rows
   L = Rg.Row
   If NuSh > Feui.Shapes.Count Then
      Set Sh = Feui.Shapes.AddShape(msoShapeRectangle, Gauche, Rg.Top, Larg, Rg.Height)
      Sh.Line.Visible = msoFalse
      Sh.Fill.Solid
   Else
      Set Sh = Feui.Shapes(NuSh)
      End If
   Sh.Name = "Couleur" & Format(L - LDébM1, "000")
   Sh.Fill.ForeColor.RGB = RGB(Round(Feui.[Rouge].Rows(L).Value), _
                               Round(Feui.[Vert].Rows(L).Value), _
                              Round(Feui.[Bleu].Rows(L).Value))
   Sh.Left = Gauche: Sh.Top = Rg.Top: Sh.Width = Larg: Sh.Height = Rg.Height
   NuSh = NuSh + 1
   Next Rg
While NuSh <= Feui.Shapes.Count: Feui.Shapes(NuSh).Delete: Wend
End Sub

Const ExGamma = 222841 / 96323, GLimite = 1307 / 151              ' E500:186,04 E250:134,93 E125:97,05 E62,5:68,98
 Const kEG1 = 1000 ^ (1 / ExGamma) / (GLimite * (ExGamma - 1) + 255), kEG2 = 1000 ^ (1 / ExGamma) - 255 * kEG1
Const ELimite = (GLimite * kEG1 + kEG2) ^ ExGamma, FLinéaire = ELimite / GLimite
Public Const EMaxSupporté = (255.499999 * kEG1 + kEG2) ^ ExGamma, EMinSupporté = -0.499999 * FLinéaire
Function EnrgG(ByVal Gris As Double) As Double
If Gris > GLimite Then EnrgG = (Gris * kEG1 + kEG2) ^ ExGamma Else EnrgG = Gris * FLinéaire
End Function
Function GrisE(ByVal Enrg As Double) As Double
If Enrg > ELimite Then GrisE = (Enrg ^ (1 / ExGamma) - kEG2) / kEG1 Else GrisE = Enrg / FLinéaire
End Function