Bonjour,
A tester et à adapter :
=SommeNonBarré(A1:C10)
Public Function SommeNonBarré(Plage As Range)
Dim c As Range
Application.Volatile
For Each c In Plage
If IsNumeric(c) And c.Font.Strikethrough = False Then
SommeNonBarré = SommeNonBarré + c.Value
End If
Next c
End Function
Public Function SommeBarré(Plage As Range)
Dim c As Range
Application.Volatile
For Each c In Plage
If IsNumeric(c) And c.Font.Strikethrough = True Then
SommeBarré = SommeBarré + c.Value
End If
Next c
End Function