Function Coul_Centre(pdate) As Boolean
Dim Cell As Range
'Les dates de Début et de Fin sont ds cette feuille
With Sheets("Août 12")
For Each Cell In .Range("AP3").Resize(3, 1)
If pdate >= Cell.Value And pdate <= Cell.Offset(, 1) Then
Coul_Centre = True
Exit Function
End If
Next Cell
End With
Coul_Centre = False
End Function
Sub Mettre_en_Forme_Coul_Centre()
Dim Cell As Range, x As Long
With Sheets("Août 12")
x = WorksheetFunction.CountA(.Range("A7").Resize(.Range("A65536").End(xlUp).Row))
For Each Cell In .Range("D5:AH5") 'pour chaque cellule
If Coul_Centre(Cell.Value) Then
'si compris dans l'intervalle des dates de début et de fin
'applique la couleur bleue (Centre)
'à chaque cellule de la plage("D7:AH11") ds ton exemple
Cell.Offset(2, 0).Resize(x, 1).Interior.ColorIndex = 37
End If
Next Cell
End With
End Sub