Trouver le nombre de ligne et la mettre en constante

Bonjour j'essaye de créer un tableau dont la taille est égale au nombre de ligne du ficher.

Sauf qu'il me dit que je ne peux pas car il faut une constrante.

message d'erreur : Constante requise sur le nbLigne dans le for

Dim nbLigne As Integer, nbColonne As Integer
nbLigne = WorksheetFunction.CountA(Range("A:A"))
nbColonne = Cells(1, Columns.Count).End(xlToLeft).Column

Dim tableau(1 To nbLigne, 3) As String

Et quand j'écris ça en constante, meme message d'erreur mais sur CountA

Const nbLigne As Integer = WorksheetFunction.CountA(Range("A:A"))

Je vous remercie d'avance.

Cordialement

Bonjour,

Une solution :

Sub test()
Dim NbL%, NbCo%, Tablo()
NbL = WorksheetFunction.CountA(Range("A:A"))
NbC = Cells(1, Columns.Count).End(xlToLeft).Column
Tablo = Range("A1", Cells(NbL, NbC))
MsgBox Tablo(4, 1)
End Sub

Rappel : Il est courament admis que les Dim se posent en début de macro. pas de semi au fil de l'eau...

A+

Merci Beaucoup, ta solution marche, et d'accord pour les Dim je ferai attention.