'------------------------------------------------------------
'Code pour allez récuperer les données dans le tableau
' adr = Sht.ListObjects("Tableau1").Range.Address 'adresse tableau
'Set rng = Range(adr)
'------------------------------------------------------------