[COLOR="DarkSlateGray"][B]Sub tata()
Dim ddd#, ddf#, l&
Dim d&, f&, c&, r&
l = 1 [COLOR="SeaGreen"]'décalage de ligne à colorier[/COLOR]
ddd = [G12].Value2 [COLOR="SeaGreen"]'date de début[/COLOR]
ddf = [G13].Value2 [COLOR="SeaGreen"]'date de fin[/COLOR]
With [C15] [COLOR="SeaGreen"]'début de la plage de référence[/COLOR]
r = .Row
c = .Column
f = Cells(r, Columns.Count).End(xlToLeft).Column
.Resize(1, f - c + 1).Offset(l, 0).Interior.ColorIndex = xlNone
Do While Cells(r, c).Value2 < ddd And c <= f
c = c + 1
Loop
Do While Cells(r, c + d).Value2 <= ddf And c + d <= f
d = d + 1
Loop
If d Then .Offset(l, c - .Column).Resize(1, d).Interior.ColorIndex = 3
End With
End Sub
Sub toto()
Dim ddd#, ddf#, l&
Dim dd As Range, oCel As Range
l = 1 [COLOR="SeaGreen"]'décalage de ligne à colorier[/COLOR]
ddd = [G12].Value2 [COLOR="SeaGreen"]'date de début[/COLOR]
ddf = [G13].Value2 [COLOR="SeaGreen"]'date de fin[/COLOR]
With [C15] [COLOR="SeaGreen"]'début de la plage de référence[/COLOR]
Set dd = Range(.Cells, Cells(.Row, Columns.Count).End(xlToLeft))
dd.Offset(l, 0).Interior.ColorIndex = xlNone
End With
For Each oCel In dd.Cells
If ddd <= oCel.Value2 And oCel.Value2 <= ddf Then
oCel.Offset(l, 0).Interior.ColorIndex = 3
End If
Next
End Sub[/B][/COLOR]