For Each ligne In Array("5", "6", "7", "8", "9", "10", "11", "12", "13")
For Each colonne In Array("2", "3", "4", "5", "6", "7", "8", "9", "10")
If Sheets(TitreAnalyse).Cells(ligne, colonne).Interior.ColorIndex = xlColorIndexNone And Sheets(TitreAnalyse).Cells(ligne, colonne).Value < 32 And Sheets(TitreAnalyse).Cells(ligne, colonne).Value > 0 And Sheets(TitreAnalyse).Cells(ligne, colonne).Value & "/" & mois & "/" & annee < datedujour Then
Sheets(TitreAnalyse).Cells(ligne, colonne).Interior.ColorIndex = 4
End If
Next
Next