Salut
les formules agissent sur le contenu par sur le format des cellules
pour ce que tu souhaites il faudrait passer par une macro et là ... faut attendre les pros
(_Usul d'Arrakis
    Serial_Dreamer_)

Bonsoir,

Si par croix tu entends les 2 diagonales mises alors avec une fonction personnalisée à mettre dans un module :

Function NbFormatDiag(plage As Range)
    Dim c As Range
    Application.Volatile
    For Each c In plage
        NbFormatDiag = NbFormatDiag - (c.Borders(xlDiagonalDown).LineStyle <> xlNone And c.Borders(xlDiagonalUp).LineStyle <> xlNone)
    Next c
End Function