Function SoulCoul(champ As Range)
Dim temp()
ReDim temp(champ.Count - 1)
For Each cell In champ
temp(i) = (cell.Font.ColorIndex = 3 Or cell.Font.ColorIndex = 5) And cell.Font.Underline = xlUnderlineStyleSingle
i = i + 1
Next
SoulCoul = Application.Transpose(temp)
End Function