Salut,

Avec ce genre de code dans les propriétés feuille par exemple, de la colonne A à T en saisissant un chiffre dans c'est exemple de 1 à 5

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = Columns("A:T") Then
Dim Couleur As Integer, I As Integer, R As Long
R = Target.Row
Select Case UCase(Target)
Case "1": Couleur = 6
Target.Interior.ColorIndex = Couleur
Target.Borders.ColorIndex = 16 'Pour associer le contour de cellule ici en noir
Case "2": Couleur = 4
Target.Interior.ColorIndex = Couleur
Target.Borders.ColorIndex = 16
Case "3": Couleur = 45
Target.Interior.ColorIndex = Couleur
Target.Borders.ColorIndex = 16
Case "4": Couleur = 38
Target.Interior.ColorIndex = Couleur
Target.Borders.ColorIndex = 16
Case "5": Couleur = 33
Target.Interior.ColorIndex = Couleur
Target.Borders.ColorIndex = 16
'Si cellule vide
Case Else: Couleur = Couleur
Target.Interior.ColorIndex = xlNone
Target.Borders.ColorIndex = xlNone
End Select
'For I = 2 To 2
'Cells(R, I).Interior.ColorIndex = Couleur
'Cells(R, I).interior.ColorIndex = Couleur
'Cells(R, I).Borders.ColorIndex = 16
'Next
End If
End Sub
A+


Un problème sans solution est un problème mal posé  (Einstein)