for Each Colonnes In Worksheets("Feuil1").ListObjects("tableau1").DataBodyRange.Columns
Copie filtres dans collection, ou tableaux ou autre
next colonnes
Worksheets("Feuil1").ListObjects("tableau1").DataBodyRange.Rows.EntireRow.AutoFit
for Each Colonnes In Worksheets("Feuil1").ListObjects("tableau1").DataBodyRange.Columns
colle filtres de collection, ou tableaux ou autre dans tableau1
next colonnes