Bonjour Hugo, Henri,
Henri, ton code ne répond pas à la question, et un novice ne saura pas l'adapter...
Hugo, essaye avec ce fichier (le code est placé au bon endroit, tu n'as qu'à entrer une valeur comprise entre 0 et 56 où tu veux.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Count > 1 Then
If Target >= 1 And Target <= 56 Then
Target.Offset(0, 1).Interior.ColorIndex = Target
End If
End If
End Sub
Amicalement,