Nombre de lignes sélectionnées

Bonjour à tous,

Qui, parmi vous, aurait la solution à m'apporter pour créer un code Vba, qui permettrait d'afficher en cellule H1 le nombre de lignes que je sélectionne (les lignes sélectionnées peuvent être consécutives ou non consécutives).

Exemple en image :

D'avance, je vous remercie.

Bon week-end.

David

Bojour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i
i = Selection.Cells.Count / Application.Columns.Count
[H1] = IIf(i > 0, Int(i), 0)
End Sub

A+

C'est exactement ce que je voulais.. Merci galopin01,

Solution apportée en moins de 30 minutes après ma demande.

Ce forum prouve une nouvelle fois son efficacité.

Bon week-end.

David