Sub test55()
Dim plage As Range, DerL As Integer
With Sheets("Feuil1") [COLOR="SeaGreen"]'<-- nom de la feuille à adapter[/COLOR]
DerL = .Cells(Rows.Count, 1).End(xlUp).Row [COLOR="seagreen"]'<-- dernière ligne utilisée de la colonne A[/COLOR]
Set plage = Range("A2:A" & DerL) [COLOR="seagreen"]'<-- définition de la plage de cellules à compter[/COLOR]
MsgBox Application.WorksheetFunction.CountA(plage.SpecialCells(xlCellTypeVisible)) '[COLOR="seagreen"]<-- compte le nombre de cellules visibles et non vides[/COLOR]
End With
End Sub