Bonsoir christian
tu ne peux pas utiliser selection avec une formule personnalisée. par définition ce type de code renvoi une valeur et ne sont pas rattaché à une cellule.
De plus, il me semble que par habitude, on ne force pas le format d'une valeur renvoyée par ce type de code, mais si tu veux le faire essaye ceci :
Function SommeRouge(MaPlage As Range)
Dim Cellule As Range
Dim TotalPartiel As Double
TotalPartiel = 0
For Each Cellule In MaPlage.Cells
If Cellule.Font.ColorIndex = 3 Then
TotalPartiel = TotalPartiel + Cellule.Value
End If
Next Cellule
SommeRouge = Format(TotalPartiel, '# #00.00')
End Function
salut