Modifier code VBA

Bonjour, yannec

***@***

'Veuillez ajouter une routine SVP à ce code pour que les 10 premières saisies la police soit en bleu.les 10 suivants (21 à 30) en rouge et le reste en noir. merci

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect "epargne"
If Target.Count <> 1 Then Exit Sub

If Target.Address = "$C$1" Then
Set valeurs = Union(Range("A3:A27"), Range("D3:D27"), Range("G3:G27"), Range("J3:J27"), Range("M3:M27"), Range("P3:P27"), Range("S3:S27"), Range("V3:V27"), Range("Y3:Y27"), Range("AB3:AB27"))
For Each cel In valeurs
If cel.Value = Target.Value Then
ActiveWindow.ScrollRow = cel.Row
ActiveWindow.ScrollColumn = cel.Column
cel.Offset(0, 1).Select
Exit Sub
End If
Next
End If
Set casiers = Union(Range("B3:B27"), Range("E3:E27"), Range("H3:H27"), Range("K3:K27"), Range("N3:N27"), Range("Q3:Q27"), Range("T3:T27"), Range("W3:W27"), Range("Z3:Z27"), Range("AC3:AC27"))
If Not Intersect(casiers, Target) Is Nothing Then
Range("C1") = ""
Range("A1").Select
ActiveWindow.ScrollRow = Selection.Row
ActiveWindow.ScrollColumn = Selection.Column
Range("C1").Select
Set lignech = Sheets("Versements").Columns("e").Find(Target.Offset(0, -1), LookIn:=xlValues, lookat:=xlWhole)
For n = 6 To 17
If Sheets("Versements").Cells(3, n) = CDate("01/" & Month(Date) & "/" & Year(Date)) Then 'Month(Date) + 1 erreur ?
col = n
End If
Next
If Not lignech Is Nothing Then
If Target.Value <> "" Then
Sheets("versements").Unprotect "epargne"
Sheets("Versements").Cells(lignech.Row, col) = Target.Value
End If
End If


End If
End Sub

Windows / Firefox 109.0