Allocation dynamique

Bonjour

Pour compléter la proposition de via55 (salut amical au passage), une solution vba
utilisation pour la colonne A
CompteLignes(A:A)

Public Function CompteLignes(col As Range)
Dim lideb As Long, lifin As Long, co As String
co = Split(col.Address, ":")(0)
lifin = Range(co & Rows.Count).End(xlUp).Row
lideb = Range(co & 1).End(xlDown).Row
CompteLignes = lifin - lideb + 1
End Function

Cdlmnt

Bonjour

Exemple pour la colonne B :

Formule matricielle à valider par Ctrl + Maj +Entrée (la formule se met auto entre accolades)
=MAX(SI(ESTVIDE(B:B);0;LIGNE(B:B)))-EQUIV(VRAI;B:B<>"";0)-1=MAX(SI(ESTVIDE(B:B);0;LIGNE(B:B)))-EQUIV(VRAI;B:B<>"";0)-1

Cdlmnt
Via