Sub RecopierFormat()
Dim Chemin$, wkS As Workbook
Chemin = ThisWorkbook.Path & "\"
Fichier = "Base Origine" & Cells(1) * 1 & "V2.xlsx"
Application.ScreenUpdating = False
Set wkS = Workbooks.Open(Filename:=Chemin & Fichier)
wkS.Sheets(1).Range("E5:BA11").Copy
ThisWorkbook.Sheets(1).Range("E5").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
wkS.Close False
End Sub