Copie feuille vers nouvelle feuille avec donnees sans formules

Sub test()
Dim wbk As Workbook

  ThisWorkbook.Worksheets(1).Copy
  Set wbk = ActiveWorkbook
  wbk.Worksheets(1).Cells.Value = wbk.Worksheets(1).Cells.Value

End Sub 
 

Sub test()
Dim rng As Range
  
  'Copier la feuille 1 et la placer après (en feuille 2)
  Worksheets(1).Copy after:=Worksheets(1)
  'Renommer la nouvelle feuille
  Worksheets(2).Name = "MaFeuille"
  'Définir la plage utilisée sur cette feuille
  Set rng = Worksheets(2).UsedRange
  'Afficher l'adresse de la plage utilisée
  MsgBox "Plage utilisée sur " & Worksheets(2).Name & " : " & vbCr & _
         rng.Address
  'Remplacer les formules par leurs résultats (leurs valeurs)
  rng.Value = rng.Value

End Sub