Ok mais si je souhaite sur une sélection de cellules conserver les formules et sur une autre sélection conserver uniquement les valeurs ,il faut un mélange des deux ,j'ai pour l'instant :
"
ligne = Sheets(Newname).Cells.SpecialCells(xlCellTypeLastCell).Row
colonne = Sheets(Newname).Cells.SpecialCells(xlCellTypeLastCell).Column
Sheets(Newname).Range(" A1 ", Cells(ligne, colonne).Address).Value = Sheets(Newname).Range(" A1 ", Cells(ligne, colonne).Address).Value