Function HeureSupHorsFerie(Plage)
Dim Nb As Long
For Each cel In Plage
If cel.Interior.ColorIndex = -4142 And cel.Value > 8 Then Nb = Nb + cel.Value - 8
Next
HeureSupHorsFerie = Nb
End Function
Function HeureSupFerie(Plage)
Dim Nb As Long
For Each cel In Plage
If cel.Interior.Color <> -4142 And cel.Value > 8 Then Nb = Nb + cel.Value - 8
Next
HeureSupFerie = Nb
End Function