Dim Fiscal As String
Dim nom As String
Dim compteur As Integer
Dim ligne As Range
'récupération des valeurs
compteur = 0
Fiscal = Range("Z2")
nom = "BR"
'filtres du tableau NC
Sheets("Suivi NC").Range("$5:$15000").AutoFilter Field:=2, Criteria1:=Fiscal
Sheets("Suivi NC").Range("$5:$15000").AutoFilter Field:=27, Criteria1:=""
Sheets("Suivi NC").Range("$5:$15000").AutoFilter Field:=9, Criteria1:="=*" & nom & "*"
'comptage des lignes sans commentaire
For Each ligne In Sheets("Suivi NC").AutoFilter.Range.SpecialCells(xlCellTypeVisible)
If Range(", 16").Comment Is Nothing Then
If ligne(", 22").Comment Is Nothing Then
Else
If ligne(", 24").Value = "" Then
compteur = compteur + 1
End If
End If
Else
If ligne(", 19").Value = "" Then
compteur = compteur + 1
End If
End If
Next
'retrait des filtres
Sheets("Suivi NC").ShowAllData
'ajout du résultat
Range("Z3").Value = compteur