Sub Colorier()
Dim DateFrom As Date, DateTo As Date, tableau(), i As Long, j As Byte
DateFrom = Range("A2").Value: DateTo = Range("B2").Value
tableau = Range("A4:B8")
For i = 1 To UBound(tableau, 1)
For j = 1 To UBound(tableau, 2)
' Si les dates contenues ds la variable Tableau sont
' comprises dans l'intervalle [DateFrom - DateTo]
If tableau(i, j) >= DateFrom And tableau(i, j) <= DateTo Then
' je colorie les dates concernées
' à partir de la ligne 4 ici
Cells(i + 3, j).Interior.ColorIndex = 43
End If
Next j
Next i
End Sub