Sub DefinirTableau()
Dim c As Range, Tableau As Range
With [A:D] 'adapter les colonnes éventuellement
Set c = .Find("*", , xlValues, , xlByRows, xlPrevious)
If c Is Nothing Then Exit Sub 'si A:D est vide
Set Tableau = .Resize(c.Row)
End With
MsgBox "Adresse du tableau => " & Tableau.Address(0, 0) 'pour tester
End Sub