Salut le forum
Ou par VBA mais faut avoir toutes les solutions possibles.
Attention le point-virgule(;) est remplacé par la virgule(,) en VBA
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cellule As String
Cellule = Target.Formula
Select Case Cellule
Case "=SUM(A1,B2)"
Target.Font.ColorIndex = 5
Case "=SUM(A1:B2)"
Target.Font.ColorIndex = 3
Case Else
Target.Font.ColorIndex = 0
End Select
End Sub
Mytå