bonjour xUpsilon, et merci beaucoup pour ton aide malheureusement ça a pas marché ça m affiche une erreur et la ligne suivante surlignée en jaune Workbooks(WbkRap).Worksheets("RAP" & i).Range("L5:L19").Copy. et j'ai essayer de voir un peu la VBA que tu as envoyé en gros c'est presque ce que je...