<HTML>bonsoir
sans les formules ?
il faut faire un collage spécial "Valeurs uniquement" et un collage spécial "format"
ce qui dans une macro pourrait donner
range("A1").copy
range("B1").select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
pour sélectionner toute les cellules 'une feuille :
sheets("mafeuille").cells.select
sheets("mafeuille").cells.usedrange.copy serait plus approprié.
Bye
STeph</HTML>