Sauver données sous CSV par macro

Bonjour,

Je dois générer un fichier vierge qui s appelle wksheet2, ensuite je copie la plage du fichier wksheet1 (A74:N96) et le coller sous format csv dans wksheet2. Mais, parfois, la macro donne fois pas de bonne valeurs comme si elle copie et colle d'autre valeurs?? je fais le même exercice pour d autre plage et avec le même code et ca fonctionne en tout temps. NB : les données sont des nombres décimales séparés par des points, exple 0.85

Set wksheet2 = wkbook2.Sheets.Add(, Sheets(wkbook2.Sheets.count), 1, xlWorksheet)
wksheet2.Activate
wksheet2.Cells.Clear
wksheet1.Range("A74:N96").Copy
wksheet2.Range("a1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False


Mon code est il OK? ou il m en manque des trucs... merci!