Sub test()
Dim wbkSrc As Workbook
Dim wbkDst As Workbook
Dim nom As String
Dim ext As String
Dim adr As String
nom = "Janvier 2018 BP.xlsx"
Set wbkSrc = Workbooks(nom)
ext = Mid(nom, InStrRev(nom, "."))
nom = Mid(nom, 1, InStrRev(nom, ".") - 1) & " new" & ext
Set wbkDst = Workbooks(nom)
adr = "F6:AC66"
nom = "Nom A"
'Copier toute la plage (pour copier les formats, commentaires, validations)
wbkSrc.Worksheets(nom).Range(adr).Copy wbkDst.Worksheets(nom).Range(adr)
'Copier les valeurs (résultat des formules)
wbkDst.Worksheets(nom).Range(adr).Value = wbkSrc.Worksheets(nom).Range(adr).Value
nom = "Nom B"
wbkSrc.Worksheets(nom).Range(adr).Copy wbkDst.Worksheets(nom).Range(adr)
wbkDst.Worksheets(nom).Range(adr).Value = wbkSrc.Worksheets(nom).Range(adr).Value
End Sub