Bonjours et un grand merci pour votre réponse, par contre il y a une erreur d'excution voici le code que j'ai utilisé :
Sub test()
Set wk1 = Workbooks("VALIDATION_POTEAUX_ERDF1.XLS") 'adapter "Classeur1" avec l'extention appropriée exemple Workbooks("MonClasseur1.xlsm")
Set wk2 = Workbooks("Classeur1") 'adapter "Classeur2" avec l'extention appropriée exemple Workbooks("MonClasseur2.xlsm")
For Each sh In wk1.Worksheets
wk1.Sheets(sh.Name).Range("A1:G25").Copy wk2.Sheets(sh.Name).Range("A1")
Next
End Sub
l'erreur apparaît au niveau de
wk1.Sheets(sh.Name).Range("A1:G25").Copy wk2.Sheets(sh.Name).Range("A1")
Vu que je débute je sais pas trop d'où vient l'erreur...
D'après ce que je comprends la variable wk1 sert à désigner mon classeur à copier et wk2 la classeur qui recevra la copie
Pour la ligne d'erreur ce que je comprends c'est que dans mon wk1 une copie est réalisé sur les feuilles avec leur nom du tableau A1:G25 pour être coller sur mon nouveau classeur ouvert en A1
Mais je comprends pas l'erreur du coup de votre code.
Un grand merci pour les futurs réponses.