Sub test()
Dim strPath$, NFic$, Wbk As Workbook, rng As Range
Dim arrWSN() As String, i%
strPath = ThisWorkbook.Path & "\"
NFic = Split(ThisWorkbook.Name, ".")(0) & "_Copie.xlsm"
ThisWorkbook.SaveCopyAs NFic
Set Wbk = Workbooks.Open(Filename:=strPath & NFic)
'crée un tableau avec le nom de toutes les feuilles du classeur actif
ReDim arrWSN(1 To Wbk.Sheets.Count)
For i = 1 To Wbk.Worksheets.Count
arrWSN(i) = Wbk.Sheets(i).Name
Next i
Set rng = Wbk.Sheets(1).Range("H11:U35"): rng = Empty
Worksheets(arrWSN).FillAcrossSheets rng
End Sub