Sub test()
Dim Cel As Range
For Each Cel In Worksheets("feuil1").UsedRange
Cel.Select
If Cel <> "" And Selection.Font.Strikethrough = True Then x = x + 1
Next
MsgBox x
End Sub
Function nbarré(champ As Range)
Application.Volatile
nbarré = 0
For Each Cel In champ
If Cel <> "" And Cel.Font.Strikethrough = True Then
nbarré = nbarré + 1
End If
Next Cel
End Function