Bonjour
avec cette instruction
Thisworkbook.Sheets("Feuil1").Copy
S'il y a des formules, il faudra également après cette instruction faire une copie des données et collage spécial valeurs pour les éliminer.
Cordialement
Merci
j'ai adapté comme suit pour coller valeurs et format mais les formules sont restées
Sub Copie()
Application.ScreenUpdating = False
Dim chemin, fichier
chemin = ThisWorkbook.Path & "\Dossier\"
If Dir(chemin, vbDirectory) = "" Then MkDir chemin
fichier = "test"
Range("A1:C9").Copy
Workbooks.Add
ActiveSheet.[A1].Select
With Selection
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End With
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With ActiveWorkbook
.SaveAs chemin & fichier, 51
.Close
End With
End Sub