Dim tableau As Variant
Dim i As Byte
Dim max As Integer
For i = 1 To 7 '7colonnes
If max < Cells(65536, i).End(xlUp).Row Then
max = Cells(65536, i).End(xlUp).Row
End If
Next i
tableau = Range('a1:g' & max).Value