En effet je n'avais pas vu la fonctions personnalisée désolé ..
Voilà qui devrait répondre à ton besoin
Sub COPIER()
Worksheets("IDE AS LOG ACC JOUR").Cells.Copy
Workbooks.Add
ActiveSheet.Cells.PasteSpecial xlPasteAllUsingSourceTheme
ActiveSheet.Cells.PasteSpecial xlPasteValuesAndNumberFormats
End Sub
Bonne soirée.