Sub Compter_NA()
Dim Cel As Range, Plg As Range
Dim Nbr_Na As Long, DerLig As Long
DerLig = Cells(Rows.Count, "A").End(xlUp).Row
Set Plg = Range("A2:B" & DerLig) 'à adapter
Plg.Rows.EntireRow.Hidden = True
For Each Cel In Plg.SpecialCells(xlCellTypeFormulas, 16)
If Application.IsNA(Cel) Then
Nbr_Na = Nbr_Na + 1
Cel.EntireRow.Hidden = False
End If
Next Cel
MsgBox Nbr_Na
End Sub