Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
With [E29] 'à adapter
.Value = "SOMME TOTALE : " & Format([SUM(IF(ISNUMBER(E2:E28),E2:E28))], "#,##0.00 €") 'plage à adapter
.Characters(1, 15).Font.ColorIndex = xlAutomatic
.Characters(16).Font.ColorIndex = 3 'police rouge
End With
Application.EnableEvents = True
End Sub