Bonjour,
tu utilise l'événement change de ta feuille "numéro"
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G32")) Is Nothing Then 'Si la cellule "G32" change
With ThisWorkbook.Worksheets("couleur_associé").Shapes("rectangle 32").Fill.ForeColor 'A adapter en fonction de l'objet rectangle utilisé
Select Case LCase(Range("G32"))
Case "vide"
.RGB = vbGreen
Case 1, 2, 3, 4, 5
.RGB = vbWhite
Case Else
.RGB = vbRed
End Select
End With
End If
End Sub