Bonsoir,
Tu incorpores dans ta macro Change :
ElseIf Not Intersect([c7:e65], Target) Is Nothing And Target.Rows.Count = 1 Then
If Time < TimeSerial(8, 0, 0) Then
Target.Interior.Color = RGB(0, 0, 0)
Target.Font.Color = RGB(255, 255, 255)
ElseIf Time >= TimeSerial(16, 0, 0) Then
Target.Interior.Color = RGB(166, 166, 166)
End If
End If
Tu supprimes évidemment tes MFC.
Les inscriptions avant 8h00 seront blanches sur fond noir, à partir de 16h00 jusqu'à 0h00 sur fond gris, inchangées de 8h00 à 15h59.
Heures éventuellement à modifier à ta convenance (pas clairement indiquées).
NB- Remarque en passant : la même macro pour chaque feuille = pas très économique ! Une seule dans ThisWorkbook aurait suffit...
Cordialement,
Ferrand