bonjour
Range("a65536").Select
dernière_ligne = Selection.End(xlUp).Row
te permets de connaitre l adernière ligne d'un tableau
en partant de 1 à cette ligne tu peux compter le nb de lignes visibles
Dim cel As Range
dim nb as single
nb = 0
For Each cel In Range(ActiveCell.Offset(1, 0), Cells(dernière_ligne,
ActiveCell.Column))
If cel.EntireRow.Hidden = False Then nb = nb+1
End If
Next cel
Eric