Colorier des cellules en fonction des resulta

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage, Cellule As Range
        
If Target.Cells.Count < 2 Then ' Si on selectionne qu'une cellule

    'Définit la plage de référence
    Set Plage = Range("A1:B10") 'plage de cellules ou les couleurs peuvent changer
    Set Cellule = Range(Target.Address)' Cellule selectionnée

    If Cellule <> "" Then
        If Not Intersect(Plage, Cellule) Is Nothing Then
           'condition 1
            If Cellule = 1 Then
                Cellule.Interior.ColorIndex = 1 'le 1 c'est du noir
            End If
            
            'condition 2
            If Cellule = 2 Then
                Cellule.Interior.ColorIndex = 5 'le 5 c'est une autre couleur
            End If

        (...) ' Tu mets tes 30 conditions

    End If
    Else
        Cellule.Interior.ColorIndex = xlNone
End If

End Sub