Remplissage automatique des couleurs en fonction des valeurs de la cellule dans la feuille de calcul.

Créez une macro qui parcourt vos cellules, lit la valeur dans la cellule et l'attribue à la couleur comme ceci :

Range("A1:A6").Interior.Color = RGB(200,160,35)

TheUser1024 a raison, et a mon vote.

Voici une solution prête à l'emploi :

Public Sub Demo()
  Dim cel As Range
  Dim myRange As Range

  Set myRange = Range("A1:E10")

  For Each cel In myRange
    cel.Interior.Color = RGB(cel.Value, cel.Value, cel.Value)
    If cel.Value > 127 Then
      cel.Font.Color = RGB(0, 0, 0)
    Else
      cel.Font.Color = RGB(255, 255, 255)
    End If
  Next cel
End Sub

Editar:

Ce code ne sera pas cassé en cas de chaînes de caractères ou de valeurs négatives ...

Public Sub Demo()
  Dim cel As Range
  Dim greytone As Long
  Dim myRange As Range

  Set myRange = Range("A1:E10")

  For Each cel In myRange
    greytone = CLng(Abs(Val(cel.Value)))
    cel.Interior.Color = RGB(greytone, greytone, greytone)
    If greytone > 127 Then
      cel.Font.Color = RGB(0, 0, 0)
    Else
      cel.Font.Color = RGB(255, 255, 255)
    End If
  Next cel
End Sub