Sub DefinirTableau()
'touches Ctrl+A pour lancer la macro
Dim PremLig As Range, Tableau As Range
Set PremLig = [B5:F5] '1ère ligne du tableau, à adapter
Set Tableau = Range(PremLig, IIf(IsEmpty(PremLig(2, 1)), PremLig, PremLig(1).End(xlDown)))
MsgBox Tableau.Address(0, 0) 'pour tester
End Sub