Bonsoir Fab,
Remplace ta macro comme suite:
Option Explicit
Dim Cell As Range
Dim WSBase As Worksheet
Dim WSDate As Worksheet
Dim Plage As Range
Dim DernL As Byte ' Maximum 255 ou remplacer par integer !!!
Sub AjouteCouleur()
DernL = Range("A65535").End(xlUp).Row
Set WSBase = Worksheets("DateCouleur") ' Modifie le nom de ta feulle !!!
Set WSDate = Worksheets("Date") ' Modifie le nom de ta feulle !!!
Set Plage = WSBase.Range("A1:A" & DernL) ' Modifie la plage de ton tableau
For Each Cell In Plage
Select Case Cell
Case WSDate.Range("A1") To WSDate.Range("B1")
Range(Cell, Cell.Offset(0, 5)).Interior.ColorIndex = 3
Case WSDate.Range("A2") To WSDate.Range("B2")
Range(Cell, Cell.Offset(0, 5)).Interior.ColorIndex = 4
Case WSDate.Range("A3") To WSDate.Range("B3")
Range(Cell, Cell.Offset(0, 5)).Interior.ColorIndex = 5
Case WSDate.Range("A4") To WSDate.Range("B4")
Range(Cell, Cell.Offset(0, 5)).Interior.ColorIndex = 6
End Select
Next Cell
End Sub
Bonne soirée
@Christophe@