Function NbSiVisible(Plage As Range, masque As String) As Long
Dim rng As Range, c As Range
Set rng = Plage.SpecialCells(xlCellTypeVisible)
For Each c In rng
NbSiVisible = NbSiVisible - (c.EntireRow.Hidden = False And c.Text Like masque)
Next
End Function