Changer couleur de la cellule selon son contenu

bonjour

veuillez s'il vous plait m'aider . je veux changer backcolor de chaque cellule selon le contenu :

par exemple si je saisie 1 T backcolor de la cellule sera rouge .

et merci d'avance

Bonjour

Supprimes les macros existantes ainsi que le bouton

Copie ce code dans le module de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Not Intersect(Range("J7:O13"), Target) Is Nothing Then
    Set cel = Range("B7:B13").Find(what:=Target, LookIn:=xlValues, lookat:=xlWhole)
    If Not cel Is Nothing Then
      Target.Interior.Color = cel.Interior.Color
      Target.Font.Color = cel.Font.Color
    Else
      Target.Interior.ColorIndex = xlNone
      Target.Font.Color = xlAutomatic
    End If
  End If
End Sub

merci infiniment Banzai64