bonsoir pete
Nombre d'enregistrements dans une liste filtrée :
With range("_FilterDatabase").rows
Records_Total = .Count - 1
Records_Found = .SpecialCells(xlVisible).Count - 1
End With
ou
pour des valeurs numériques ou non
="" & sous.total(3;A5:A23) & " of " & nb.val (A5:A23)
ou encore pour des valeurs numériques seulement : ="" & Sous.total(2;B5:B23) & " of " & nb(B5:B23)
bye
STéphane