re moi,J'ai reussi à adapter ton code, super ça marche nickel par contre, j'ai une autre question, voici un code pour mettre sous forme de tableau:
Range("B21", Range("B21").End(xlDown).End(xlToRight)).Select
Application.CutCopyMode = False
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$B$21:$G$2998"), , xlYes).Name _
= "Tableau1"
Range("Tableau1[#All]").Select
ActiveSheet.ListObjects("Tableau1").TableStyle = "TableStyleLight9"
Mon soucis c'est que les données à mettre en forme seront toujours plus nombreuses, donc Range("$B$21:$G$2998") ça ne va pas le faire...