Discussion :

[AlainTech]

... et j'ai trouvé encore autre chose de pas mal non plus :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Cells.SpecialCells(xlCellTypeLastCell).Row ' donne le n° de la dernière ligne occupée de la colonne la plus longue

Attention à cette syntaxe qui renvoie la dernière ligne dont contenu et mise en forme ne sont pas vierges.
Sont pris en compte, entre autres, les formules (mêmes renvoyant du vide) et les bordures (parfois, même après suppression).

[Henri1830]

Ok, Alain, merci pour le renseignement.

Je viens de tester, tu as raison.
Mon tableau faisait plus de 100.000 lignes. J'ai effacé une série de données qui ne m'intéressaient pas.
Après coup, il me reste 35.000 lignes, cette fonction continue à me renseigner plus de 100.000 lignes.
Donc, on revient à :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("A1048576").End(xlUp).Select
nDernLigneANT = ActiveCell.Row

ce qui permet ce genre de formule:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ActiveSheet.Range(Cells(2, 1), Cells(nDernLigneANT, 1)).Formula = "=D2&F2"

[AlainTech]

Dommage...