michel

bonsoir Laurent

dans cet exemple , le filtre est dans la colonne A

Sub NbLignesAfficheesFiltreAuto()
MsgBox Range("A1:A" & Range("A6556").End(xlUp).Row).SpecialCells(xlVisib le).Count - 1
End Sub


bonne soiree
MichelXld