Bonjour,
J'ai mis ce code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Sheets("Données").ListObjects("TableauResult").Range.Cut Destination:=Sheets("Données").Range("M" & LigneEnCours)
Pour récupérer un tableau et le couper/coller à un autre endroit en fonction de mon affichage.
Cela fonctionne mais il ne me conserve pas la mise en forme des cellules (couleur de fond, couleur de police, etc...)

Une aide svp,
Merci