Copie de plusieurs feuilles dans un nouveau classeur

Bonjour à tous,

j'ai besoin d'aide car je trouve aucune solution à mon soucis. je souhaite copier coller plusieurs feuilles d'un classeur dans un nouveau classeur avec le code ci-dessous j'y parviens mais je n'arrive pas à intégrer un pastespecial pour pourvoir ne copier que les valeurs et non les formules.

Sub copieonglet()

Dim wbk As Workbook
Dim Sh As Worksheet
Dim Shp As Shape

Application.ScreenUpdating = False
ThisWorkbook.Sheets(Array("Japon", "Renault Tech", "Daimler X61")).Copy

Set wbk = ActiveWorkbook

For Each Sh In wbk.Worksheets
Next Sh
Application.DisplayAlerts = False
Application.DisplayAlerts = True
wbk.Close
Set wbk = Nothing

End Sub

Merci d'avance pour votre aide

Bonjour,

Voici un essai :

Sub copieonglet()

Dim Sh As Worksheet

Application.ScreenUpdating = False
Application.DisplayAlerts = False
ThisWorkbook.Sheets(Array("Japon", "Renault Tech", "Daimler X61")).Copy
with activeworkbook
    For Each Sh In .Worksheets
        sh.usedrange.value = sh.usedrange.value
    Next Sh
    .saveas "NouveauNom.xlsx", 51
    .close true
end with
Application.DisplayAlerts = True
Application.ScreenUpdating = true

End Sub

Cdlt,

bonjour, merci beaucoup pour la réactivité et la réussite de celle-ci.