Private Sub cree_tableau(nblignes As Long, nbcol As Long)
Dim deb_tab As Range
Set deb_tab = [A65536].End(xlUp)(4)
deb_tab.Resize(nblignes + 1, nbcol).Borders.LineStyle = xlContinuous
deb_tab.Resize(, nbcol).Value = Range(Cells(1, 1), Cells(1, nbcol)).Value
End Sub