Tu modifies ainsi la procédure de Curulis :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Application.ScreenUpdating = False
For Each c In Intersect(Target, Me.Range("C5:L46"))
Select Case c.Value
Case 5: c.Interior.Color = RGB(255, 0, 0)
Case 55: c.Interior.Color = RGB(0, 255, 0)
Case 4: c.Interior.Color = RGB(0, 176, 240)
Case 44: c.Interior.Color = RGB(0, 255, 0)
Case 1: c.Interior.Color = RGB(255, 255, 0)
End Select
Next c
End Sub
Pour mettre à jour, tu copies la plage et la colles sur elle-même, cela entraînera la mise à jour de toutes les cellules.
NB-Tu parles de plusieurs tableaux ??? La procédure ne s'applique qu'à un seul tableau d'une seule feuille ! Si cela doit concerner plusieurs feuilles, il faut lui apporter quelques modifs et la placer dans ThisWokbook au lieu d'un module de feuille.
NB pour Curulis : Is est obligatoire avec un opérateur de comparaison : =, <, >, <=, >=... mais l'utilisation de = n'est pas obligatoire pour une comparaison d'égalité, donc : Case 5 fonctionne pareil que Case Is = 5 (mais c'est plus court ! )