Voici, j'y ai mis les valeurs et le format.
Option Explicit
Sub importer()
Dim NomFichier As Variant, wkb As Workbook
With ActiveSheet
NomFichier = Application.GetOpenFilename("Classeurs Excel(*.xlsx),*.xlsx)")
If NomFichier = False Then Exit Sub
Workbooks.Open Filename:=NomFichier
NomFichier = Dir(NomFichier)
Set wkb = Workbooks(NomFichier)
wkb.Sheets("base1").Range("B2:C150").Copy
' valeurs
.Range("C5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
' format
.Range("C5").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Workbooks(NomFichier).Close
End With
End Sub