Dim Sh As Worksheet, wb As Workbook, cel As Range, i As Byte, col As Range
For Each Sh In ThisWorkbook.Worksheets
If Sh.Name <> "Lancement" And Sh.Name <> "Conso à date par région" And Sh.Name <> "Conso histo par région" Then
Set wb = Workbooks.Open("C:\Templates\Template Report Région.xls")
Set cel = wb.Sheets("Votre Région a date").Range("A65536").End(xlUp)(2)
i = 0
For Each col In Sh.Range("A2:H60")
col.Copy cel.[COLOR="Red"]Offset(, 3 * i)[/COLOR]
i = i + 1
Next
i = 0
Set cel = wb.Sheets("Votre Région a date").Range("K7")
For Each col In Sh.Range("I2", Sh.Range("I2").End(xlToRight)).Resize(26)
col.Copy cel.[COLOR="red"]Offset(, 3 * i)[/COLOR]
i = i + 1
Next
wb.SaveAs ("C:\Templates\" & Workbooks("Template Report Région.xls").Sheets("Votre Région a date").Range("B7").Value & ".xls")
'Fermeture du fichier crée
wb.Close
End If
Next Sh