Function EstRougeZone(Cellules As Range) As Boolean
' Fonction permettant de vérifier : Si une cellule est au moins de couleur rouge Alors renvoie Erreur
Dim Cellule As Range
For Each Cellule In Cellules
If Cellule.FormatConditions.Count > 0 Then
If CBool(Evaluate(Cellule.FormatConditions(1).Formula1)) Then
EstRougeZone = True
Exit Function
End If
End If
Next Cellule
EstRougeZone = False
End Function