Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Date_Saisie As Date, Date_Jour As Date
Dim Nb_Jour As Integer
Application.ScreenUpdating = False
If Target.Count > 1 Then Exit Sub
If Target.Column = 3 And Target.Row >= 20 And Target.Row <= 1000 Then
Date_Saisie = Target.Value
Date_Jour = Now
Nb_Jour = Abs(Date_Saisie - Date_Jour)
Select Case Nb_Jour
Case 10
Target.Interior.ColorIndex = 3 'Rouge
Case 9
Target.Interior.ColorIndex = 5 'Bleu
Case 8
Target.Interior.ColorIndex = 10 'Vert
Case 7
Target.Interior.ColorIndex = 46 'Orange
Case 6
'Target.Interior.ColorIndex = 10 'Vert
Case 5
'Target.Interior.ColorIndex = 10 'Vert
Case 4
'Target.Interior.ColorIndex = 10 'Vert
Case 3
'Target.Interior.ColorIndex = 10 'Vert
Case 2
'Target.Interior.ColorIndex = 10 'Vert
Case 1
Target.Interior.ColorIndex = 52 'Maron
Case Else
End Select
End If
End Sub