Connaitre le nombre de lignes d'un tableau

Bonjour,

Je bloque depuis pas mal de temps sur une fonction et comme je débute, je fais appel à vos connaissances..

Sur la même feuille, je dispose de 2 tableaux récapitulatifs qui s'étendent respectivement de A1 à E2 et A5 à E6.

La première ligne de ces tableaux contient du texte, la seconde des valeurs qui sont rapatriées de X feuilles du même classeur.

X est variable et peut changer à la volée. Aujourd'hui, je génère ce X feuilles à l'aide d'une macro.

Voici ma question:
je sais ajouter des lignes à mes tableaux (cf macro ci dessous), mais je ne sais pas comment les supprimer.

En effet, lorsque j'ajoute des lignes au tableau A1-E2, le tableau situé en dessous se décale (et donc le numéro des lignes change).

Il me manque donc une fonction qui me donnerai, pour mon tableau, le nombre de lignes existantes.

A partir de là, je pourrai supprimer les lignes sur numéraires.

Note: je sais comment me placer sur la première cellule de mon tableau:

Sub cellule_tableau

Range("bilan").Select
nombre = Range("bilan").Count
colonne = Range("bilan").Column
ligne = Range("bilan").Row

Cells(ligne, colonne).Select

End Sub

A partir de là, je dois bien pouvoir connaitre le nombre de lignes de mon tableau??


Pour info, ma macro pour insérer des lignes.

Sub insertion_ligne()

'Nommer la plage de cellule sous les cellules à copier, renseigner range

Range("bilan2").Select

nb_batiment = Sheets("Définition").Range("c4").Value
i = 0
For i = 1 To nb_batiment - 1

ActiveCell.EntireRow.Insert
Rows(ActiveCell.Row - 1).Copy Rows(ActiveCell.Row)
On Error Resume Next
Rows(ActiveCell.Row).SpecialCells(xlCellTypeConstants, 23).ClearContents
Next i

End Sub