Sub NombreLignes()
Dim Plage As Range
If ActiveSheet.AutoFilterMode Then
Set Plage = Selection
NoColonne = Plage.Column
LeNombre = Application.Subtotal(3, ActiveSheet.AutoFilter.Range.Columns(NoColonne)) - 1
MsgBox "Le nombre de lignes de cette colonne filtrée est de : " & LeNombre & " ", vbInformation, "Nombre de valeurs filtrées ..."
Else
MsgBox "Cette opération n'est pas possible car vous" & vbCr & "n'avez pas mis de filtre automatique.", vbInformation, "© DEUTSCH - Macros personnalisées"
End If
End Sub